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subscript  w  =  water. 

air  density 

surface  shear  stress 


I.  executive  Summary 

This  final  report  covers  all  four  tasks  of  a  project  to  revise  and 
verify  experimentally  the  spreading,  movement,  dissolution,  and  dissipation 
models  for  1 ighter-than-water  insoluble  chemicals  of  the  Hazard  Assessment 
Computer  System.  The  report  documents  (!)  the  analysis,  development,  and 
verification  of  the  final  form  of  the  models,  (2)  experimental  procedures 
and  representative  test  data,  and  (3)  listings  and  flow  charts  for  the  com¬ 
puterized  model s . 


1 . 1  Background 


Analytical  and  computer  models  have  been  developed  previously  for  the 
U.  S.  Coast  Guard  for  use  in  predicting  the  spreading,  evaporation,  and  disso¬ 
lution  of  a  1 ighter-than-water  insoluble  chemical  spilled  into  a  waterway. 

A  later  independent  study  found  that  the  models  contain  a  number  of  serious 
deficiencies:  I 


1.  Only  instantaneous  spills  are  treated  in  detail,  and  the  con¬ 
tinuous  spill  model  neglects  many  important  effects. 

2.  Effects  of  currents  and  winds  on  the  spreading  processes  are 

neglected.  :  j 

I 

3.  Spreading  of  the  slick  is  not  coupled  to  the  loss  of  mass  by 
evaporation  and  dissolution. 

4.  The  evaporation  and  dissolution  models  are  based  upon  question¬ 
able  mass-transfer  assumptions'. 

5.  Movement  of  the  slick  by  winds!,  currents,  and  waves  is  not 

included.  j 

6.  None  of  the  empirical  constant^  in  the  models  have  been  veri¬ 
fied  experimentally. 


For  these  reasons,  the  Coast  Guard  has  sponsored  the  present  program  to 
correct  the  indicated  deficiencies  and  to  validate  the  revised  models  ex¬ 
perimentally. 
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1.2  Program  Tasks 


1.2.1  Literature  Review  and  Reformulation/Revision  of  Models 


The  literature  review  on  spreading,  evaporation,  and  dissolution  of 
floating  chemicals  performed  for  this  task  concluded  that  major  revisions 
to  the  models  were  needed  to  treat  continuous  spills  and  spills  in  a  current. 
More  realistic  evaporation  and  dissolution  models  were  also  indicated.  Since 
the  methods  used  in  the  existing  models  did  not  generally  represent  the  best 
available  state-of-the-art  techniques  and,  further,  the  models  could  give 
unreliable  predictions  for  many  types  of  spills  and  chemicals  of  interest, 
only  the  existing  model  for  an  instantaneous  spill  in  calm  water  could  be 
retained,  and  it  had  to  be  modified  to  account  for  mass  loss  by  evaporation 
and  dissolution.  New  or  modified  models  were  indicated  for  all  other  cases 
of  interest. 

In  summary,  the  following  new  or  modified  models  were  developed: 

1.  Instantaneous  spill  in  a  current; 

2.  Continuous  spill  in  calm  water; 

3.  Continuous  spill  in  a  current; 

4.  Rate  of  mass  transfer  by  evaporation; 

5.  Rate  of  mass  transfer  by  dissolution;  and 

6.  Movement  of  slick. 

In  addition,  all  the  spill  models  now  include  the  effects  of  a  loss  of  mass. 
The  models  are  also  in  a  form  suitable  to  treat  spills  in  channels,  rivers, 
lakes,  and  coastal  waters.  The  waterway  current  can  be  constant,  or  it  can 
be  made  to  vary  in  time  or  spatial  position,  or  both.  The  wind  can  be  speci¬ 
fied  as  constant  or  as  a  function  of  time.  In  short,  the  revised  models  can 
be  used  for  nearly  every  practical  combination  of  chemical  properties,  water¬ 
way  type,  chemical  spill  discharge  rate  and  duration,  and  spill  volume. 

The  models  have  been  progranmcd  for  computerized  solution,  and  pro¬ 
gram  listings  and  flow  charts  are  given  in  this  report. 


•\ 
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1.2.2  Exper  linen  t  a  1  Design 

In  order  to  provide  data  to  verify  the  models,  an  extensive  test 
program  was  designed.  The  program  was  organized  into  two  separate  types 
of  tests:  (1)  the  spreading  of  large-scale  spills  in  water  with  and  with¬ 
out  a  current,  and  (2)  the  determination  of  evaporation  and  dissolution  mass 
transfer  rates  for  non-spreading,  floating  spills.  A  sensitivity  analysis 
of  the  models  was  conducted  to  aid  in  the  test  design.  This  analysis  re¬ 
vealed  those  parameters  that  have  the  most  influence  on  the  spreading,  evapo 
ration,  and  dissolution  predictions  and  therefore  should  require  control  and 
accurate  measurement.  The  test  plan  was  approved  by  the  Coast  Guard. 

1.2.3  Data  Col  lec t_i  on_  and  Analys ij> 

Tests  of  the  spreading  dynamics  of  spills  v/ere  conducted  in  two 
facilities: 

1.  A  specially-constructed  outdoor  basin,  approximately  18  meters 
square  by  0.3  meter  deep,  in  which  large  quantities  of  chemical  could  be 
spilled  instantaneously  or  continuously  in  water  without  a  current,  and 

2,  A  modified  indoor  ciannel,  about  14  meters  long  and  2.5  meters 
wide,  in  which  the  spreading  of  continuous  spills  in  various  currents  could 
be  conducted. 

Over  one  hundred  spreading  tests  were  conducted  in  these  facilities.  The 
primary  data  measured  were  the  size  and  shape  of  the  slick  as  a  function 
of  time. 

Tests  to  determine  mass  transfer  rates  due  to  evaporation  and  disso¬ 
lution  of  floating  chemicals  were  conducted  in  two  different  facilities: 

1.  A  specially-constructed  environmental  wind  tunnel,  in  which 
winds  up  to  5  meters/second  could  be  blown  over  chemicals  floating  in  a 
pan  about  0.4  meter  wide  by  1.2  meters  long,  and 

2.  A  wind-wave  tunnel  at  Flow  Research,  Inc.  (Kent,  Washington), 
in  which  floating  chemicals  could  he  subjected  to  the  simultaneous  influ¬ 
ence  of  wind  and  waves. 
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About  fifty  evaporation  and  dissolution  tests  were  conducted.  Detailed 
concentration  measurements  as  a  function  of  wind  speed  and  wave  charac¬ 
teristics  constituted  the  primary  data  measured  in  these  tests. 

1.2.4  Revision  and  Demonstration  o_f_  the  Models 

In  this  task,  the  models  of  spreading,  evaporation,  and  dissolution 
of  instantaneous  and  continuous  spills  were  compared  to  the  data  from  a  few 
typical  tests,  and  the  "best"  values  cf  each  empirical  constant  appearing  in 
the  models  were  selected.  The  results  of  the  remaining  tests  were  then  used 
as  independent  data  for  model  verification.  Generally  good  comparisons  were 
obtained  between  the  test  data  and  the  models. 

It  is  concluded  that  the  revised  models  are  satisfactory  for  use  in 
the  Hazard  Assessment  Computer  System.  Some  further  experimental  and  ana¬ 
lytical  work  is  recommended  to  increase  the  applicability  of  the  models: 

o.  dissolution  of  slick  into  the  water  caused  by  wave  action; 

o  slick  formation  for  a  continuous  spill  when  the  net 
transport  velocity  is  very  small; 

o  anomalous  behavior  of  some  chemicals  for  some  spill 
conditions; 

o  long-term  movement  and  breakup  of  the  slick  in  open 
water. 


II.  INTRODUCTION 


As  pari  of  the  Hazard  Assessment  Computer  System  of  the  Chemical 
Hazards  Response  Information  System,  models  have  been  developed  previously 
to  predict  the  spreading,  evaporation,  and  dissolution  of  1 ighter-than- 
water  insoluble  chemicals  spilled  in  waterways  from  accidental  punctures  of 
ship  tanks  ([1],  Models  3,  8,  and  10;  [2],  Models  II  and  IV).  Since  the 
models  are  used  both  for  contingency  planning  and  for  the  evaluation  of 
accidents  in  progress,  they  were  formulated  in  a  general  enough  way  to  treat 
spreading,  evaporation,  and  dissolution  processes  without  requiring  a  com¬ 
plete  description  of  water  velocity  profiles,  bottom  roughnesses,  waterway 
cross-sections,  puncture  shapes,  and  other  data  that  are  unlikely  to  be  avail¬ 
able  in  practice.  As  a  result,  the  models  are  more  idealized  than  a  corre¬ 
sponding  model  developed  specifically  for  a  giver  spill  and  waterway  would  need 
to  be.  Critical  reviews  [3,4]  have  shown  that,  even  so,  the  models  are 
overly  limited  in  scope  and  contain  errors  in  their  basic  physical  repre¬ 
sentations.  Therefore,  the  Coast  Guard  has  sponsored  the  present  program 
to  correct  the  indicated  deficiencies  and  to  validate  the  revised  models 
experimentally. 

The  previous  reviews  [3,4]  and  the  review  conducted  as  part  of  the 
present  work  have  concluded  that  the  current  HACS  models  are  deficient  in  the 
following  ways. 

Spreading  Processes 

1.  Only  instantaneous  spills  are  treated  in  detail. 

2.  The  continuous  spill  model  neglects  many  important  effects 
and  predicts  absurd  results  for  a  chemical  whose  density  is 
nearly  the  same  as  water. 

3.  The  effects  of  currents  and  winds  in  altering  the  dynamics 
of  the  spreading  and  the  shape  of  the  slick  are  neglected. 

4.  The  model  describing  the  spreading  of  low-viscosit/  chemicals 
is  based  upon  unrealistic  assumptions. 

5.  Spreading  of  the  slick  is  not  coupled  to  the  loss  of  mass  b/ 
evaporation  and  dissolution. 
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6.  The  empirical  constants  in  the  models  have  not  been  verified 
experimentally. 

Evaporation  Processes 

1.  The  evaporation  mass  transfer  coefficients  used  in  the  models 
apply  strictly  only  to  smooth  flat  plates. 

2.  The  latent  heat  of  evaporation  is  assumed  to  be  supplied  by 
the  underlying  water  and  the  chemical  itself,  neglecting  the 
much  larger  heat  transfer  from  solar  radiation  and  from  the 
air  to  the  slick.  Evaporative  cooling  of  the  chemical  and  the 
water  is  substantially  overpredicted  in  most  cases  as  a  result. 

Dissolution  Processes 

1.  The  dissolution  mass  transfer  coefficient,  which  is  derived 
from  empirical  data  on  the  absorption  of  gas  into  water,  is 
not  relevant  for  the  dissolution  of  insoluble  chemicals. 

(It  is  recognized,  however,  that  the  prediction  of  dissolution 
of  an  "insoluble"  chemical  in  a  waterway  with  wind,  current,  and 
waves  is  a  formidable  task  and  that  a  simplified  modal  is  neces¬ 
sary.) 

Slick  Movement 

1.  Movement  of  the  chemical  slick  by  winds,  currents,  and  waves 
is  not  included  in  the  models. 

Because  of  these  deficiencies,  the  use  of  the  available  models  is 
limited  to  instantaneous  spills  in  channels  or  in  unbounded,  open  expanses 
of  water,  without  currents,  winds,  or  waves.  Even  for  the  small  range  of 
cases  where  the  models  can  be  used,  the  predictions  are  not  always  reliable 
because  of  the  use  of  empirical  constants  that  have  not  been  experimentally 
verified. 
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The  present  program  was  designed  to  reformulate  the  models  in  the 
light  of  the  above  criticisms  and  to  validate  the  models  experimentally. 

The  program  efforts  were  arranged  into  four  tasks. 

Task  1  -  Literature  Revi ew  and  Reformulation/Revision  of  Models 

For  this  task,  the  spreading-evaporation-dissolution-movement  models 
for  1 ighter-than-water  insoluble  chemicals  were  reformulated  to  remove  the 
limitations  and  to  correct  the  deficiencies  listed  above. 

Task  2  -  Experimental  Design 

For  this  task,  a  set  of  experiments  was  designed  to  validate  the 
reformulated  models.  Emphasis  was  placed  on  the  spreading  dynamics  of 
instantaneous  and  continuous  spills  and  on  the  evaporation  and  dissolution 
processes  of  floating  chemical  slicks. 

Task  3  -  Data  Collection  and  Analysis 

For  this  task,  the  experimental  program  designed  in  Task  2  was  exe¬ 
cuted.  The  spreading  of  both  instantaneous  and  continuous  spills  was  in¬ 
vestigated  in  calm  water  and  in  a  flowing  channel,  using  large-scale  facil¬ 
ities  at  Southwest  Research  Institute.  Mass  transfer  coefficients  for  evap¬ 
oration  and  dissolution  of  floating,  insoluble  chemicals  were  determined 
from  wind  tunnel  tests  at  Southwest  Research  Institute  and  from  wind-wave 
tunnel  tests  at  Flow  Research,  Inc.  at  Kent,  Washington. 

Task  4  -  Revision  and  Demonstration  of  Mathematical  Models 

For  this  task,  the  reformulated  models  were  compared  to  the  experi¬ 
mental  results  and  revised  as  indicated  by  the  comparisons.  Each  model 
was  also  computerized  and  documented. 

This  report  is  generally  organized  in  agreement  with  the  four  tasks; 
the  major  exception  is  that  the  model  revisions  indicated  by  the  test  results 
are  incorporated  in  the  descriptions  of  the  models  at  the  time  they  are  first 
given.  All  the  data  from  the  tests  are  presented  in  the  companion  Test  Data 
Volume  of  this  Final  Report. 
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III.  REFORMULATION  OF  MODELS 


III.1 


Background  and  Common  Assumptions 


tions 
script! 
physica 
models 


th 


jThe  models  developed  in  this  report  are  based  upon  a  number  of  assump- 
at  have  been  made  primarily  to  eliminate  the  need  for  detailed  de- 
^)ns  of  the  waterway  and  the  spill,  rather  than  to  simplify  the  basic 
phenomena.  To  avoid  repetition,  the  assumptions  common  to  all  the 
ire  listed  together  here. 


Waterway  Assumptions 

V.l  If  the  waterway  is  a  river  or  channel,  the  width  is  constant. 
The  surface  current  can  be  a  function  of  time  but,  at  any  time, 
it  is  the  same  at  all  points  along  the  surface.  If  the  water¬ 
way  is  a  lake  or  coastal  water,  the  current  can  vary  over  the 
surface  in  a  discrete  fashion  as  well  as  with  time. 


W 


.2 


Blockage  and  interference  effects  due  to  the  presence  of  the 
cargo  ship  in  the  waterway  are  neglected. 


S 


pill  Assumptions 


SP.l 


A  continuous  spill  is  characterized  by  a  constant  mass  flow 
rate,  a  specified  spilling  duration,  and  the  relevant  physico¬ 
chemical  properties. 


SP.2 


An  instantaneous  spill  is  characterized  by  the  total  mass  of 
chemical  released  and  the  relevant  physico-chemical  properties. 


Spreadi_n5_  Ass  urn  p  t  i 


ons 


S a  1  Details  of  the  spill  source,  such  as  the  puncture  size,  the  dis- 

i 

charge  velocity,  and  the  location  of  the  puncture  with  respect 
to  tin?  waterl  ine,  arc.*  neglected. 
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S.2  The  variation  of  physico-chemical  properties,  such  as  the 
spreading  coefficient,  as  the  chemical  dissolves  into  the 
water  is  neglected. 

Eyaporat ion  and  0 i s so 1 u ti on  Assumpt i ops 

E.l  Mass  transfer  on  both  sides  of  the  air-water-chenical  interface 
is  described  by  a  convective  process  based  upon  boundary  layer 
theory. 

E.2  Sufficient  heating  of  the  slick  from  the  surrounding  environ¬ 
ment  (solar  radiation  and  heat  transfer  from  the  air  and  the 
water)  is  assumed  such  that  the  temperature  change  of  the 
slick  from  evaporative  cooling  can  be  neglected. 

The  consequences  of  these  assumptions  are  not  severely  limiting. 

The  waterway  assumptions  imply  only  that  localized  effects  cannot  be  pre¬ 
dicted.  The  spill  assumptions  are  all  physically  reasonable.  The  spread¬ 
ing  assumptions  imply  that  the  dynamics  of  the  spreading  cannot  be  predicted 
in  detail  at  points  very  close  to  the  source,  but  this  is  acceptable  since 
floating  spills  typically  spread  over  large  areas  and  the  potential  lack  of 
an  accurate  spreading-rate  prediction  near  the  source  is  therefore  not  of 
crucial  importance.  Assumption  E.2,  concerning  the  smallness  of  evaporative 
cooling,  has  been  made  to  eliminate  the  need  for  a  complicated  heat  transfer 
model.  (For  very  volatile  or  cryogenic  chemicals,  which  are  not  of  interest 
here,  the  assumption  may  be  invalid.)  Dissolution,  as  computed  on  the  basis 
of  boundary  layer  theory  (assumption  E.l),  may  account  for  only  a  small  part 
of  the  mass  transfer  into  the  water  when  droplets  of  the  chemical  are  dis¬ 
persed  directly  into  the  water  by  the  action  of  the  wave';.  In  addition, 
other  kinds  of  diffusion  processes  may  be  important  for  those  chemicals 
that  have  an  affinity  for  water  at  the  molecular  level,  even  though  they 
are  insoluble.  Thus,  of  all  the  models  developed  here,  the  dissolution  model 
is  the  most  idealized.  However,  there  are  no  models  available  at  this  time 
that  can  describe  more  realistically  the  actual  dissolution  processes  that 
occur  for  a  floating  slick  of  insoluble  chemical  in  the  presence  of  winds, 
waves,  and  currents. 
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The  analytical  models  used  to  predict  the  spreading,  evaporation, 
dissolution,  and  movement  of  continuous  and  instantaneous  spills  are  pre¬ 
sented  in  Sections  III. 2  through  III. 5.  Table  III.1  summarizes  the  pre¬ 
sentations  and  can  serve  as  a  guide  for  reference. 

I I I . 2  Spreading  Models 

III. 2.1  General  Discussion 

The  venting  rate  model  of  the  Hazard  Assessment  Computer  System  has 
been  revised  and  validated  [5,6],  and  it  may  be  used  to  estimate  both  the 
total  amount  of  cargo  released  into  the  waterway  and  the  duration  of  the 
discharge.  (Discharges  of  moderate  duration,  say  about  10  minutes,  con  be 
analyzed  as  a  continuous  release,  but  in  the  computerized  version  of  the 
models,  recommendations,  based  on  physical  considerations,  are  made  in  the 
output  as  to  whether  such  a  spill  should  be  analyzed  more  appropriately  as 
instantaneous.)  Knowing  the  anount  of  chemical  discharged  and  the  discharge 
duration,  spreading  models  are  needed  to  predict  the  size  and  shape  of  the 
floating  slick  and  how  the  size  and  shape  change  with  time.  Models  are 
developed  below  that  can  be  applied  to  rivers,  channels,  lakes,  and  coastal 
waters  to  make  the  required  predictions.  In  general,  only  calm  water  with 
or  without  a  current  will  be  treated;  waves  may  alter  somewhat  the  rate  of 
spreading  predicted  for  calm  water,  but  these  effects  are  beyond  the  present 
state-of-the-art.  The  spreading  models  also  provide  a  convenient  center 
about  which  to  make  mass  balances  of  the  spilled  material. 

In  the  past,  two  different  methods  have  been  used  to  formulate  spread¬ 
ing  models  [7,8].  In  one,  the  forces  tending  to  promote  and  to  retard  the 
spreading  are  determined  from  physical  laws,  and  the  spreading  models  are 
deduced  from  the  balance  of  the  forces.  In  the  other,  the  spreading  is 
merely  hypothesized  to  be  similar  to  turbulent  diffusion,  and  the  spreading 
law  is  formulated  using  the  principles  of  Fickian  diffusion.  The  first 
method  is  chosen  here  for  several  reasons: 


1. 


The  dynamical  basis  of  the  diffusion  models  is  obscure  [8], 
Spreading  by  turbulent  diffusion  is  physically  justifiable 


TABLE  III.l  GUIDE  TO  ANALYTICAL  MODEL  DEVELOPMENT 
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WATERWAY 

CURRENT 

ANO  WIND 

SPILL  TYPE 

DESCRIPTION 

REPORT 

PAGES 

Channel 

or 

River 

Zero  or 
Non-zero 

Instantaneous 

One-dimensional 
spreading  model 

19-21 

Channel 

or 

River 

Zero 

Continuous 

One-dimensional 
spreading  model 

21-23 

Open 

Water 

Zero  or 
Non-zero 

Instantaneous 

Radial  spreading 
model 

13-19 

Open 

Water 

Zero 

Continuous 

Radial  spreading 
model 

21-23 

Channel 

or 

River 

Non-zero 

Continuous 

One-dimensional  spreading 
with  effects  of  current 
included 

24 

Open 

Water 

Non-zero 

Continuous 

Elongated  triangular 
spreading  model 

23-24 

Channel 

or 

River 

Non-zero 

wind 

Instantaneous 

or 

Continuous 

Evaporation  rate 
model 

29-32 

Open 

Water 

Non-zero 

wind 

.  .  - . . 

Instantaneous 

or 

Continuous 

Evaporation  rate 
model 

29-32 

Channel 

or 

River 

Non-zero 

wind 

Instantaneous 

or 

Continuous 

Dissolution  rate 
model 

36-39 

Open 

Water 

Non-zero 
wi  nd 

Instantaneous 

or 

Continuous 

Dissolution  rate 
model 

36-39 

Channel 

or 

River 

Non-zero 

Instantaneous 

or 

Continuous 

Slick  movement  model 

40-41 

Open 

Water 

Non-zero 

Instantaneous 

or 

Continuous 

Slick  movement  model 

41-43 

V 

V 
>* 
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only  for  "passive"  substances  that  dissolve  in  water  and  be¬ 
come  indistinguishable  from  it  {except  for  "marked  particles") . 

2.  Methods  for  predicting  diffusion  coefficients  for  the  surface 
spreading  of  insoluble,  floating  chemicals  are  not  available. 
Most  work  in  the  past  has  been  after-the-fact  curve  fitting 
to  the  observed  spreading  rates  of  large-scale  spills  in  open 
water  [7,9,10]. 

A  third  approach  combines  both  types  of  models  [11,12],  but  this  does  not 
avoid  the  problem  of  finding  diffusion  coefficients.  The  models  developed 
in  this  report  are  based  upon  the  first  approach  mentioned  above.  Such  models 
are  capable  of  being  interpreted  physically  and  lead  to  expressions  contain¬ 
ing  a  minimum  of  empirical  constants;  in  addition,  the  empirical  constants 
can  be  determined  readily  by  laboratory-scale  experiments. 

1 1 1 . 2 . 2  General  Description 

The  revisions  that  have  been  made  to  the  previous  spreading  models 
[1,2]  consist  of: 

o  adding  realistic  models  of  continuous  spills; 

o  including  the  effects  of  current  and  wind  on  the  shape  and 
the  spreading  of  continuous  and  instantaneous  spills;  and 

o  including  the  effects  of  a  loss  of  mass  from  the  spill 
(evaporation  and  dissolution). 

In  addition,  the  models  have  been  put  in  a  form  that  permits  a  ready  solu¬ 
tion  when  a  loss  of  mass  occurs.  The  empirical  constants  in  the  models  have 
been  determined  by  experimentation,  in  some  cases  for  the  first  time,  and  in 
all  cases  by  the  use  of  larger  spills  than  had  previously  been  used. 

11 1. 2. 3  Instantaneous  Spills 

The  devolo|«:ient  of  predictive  method,  for  i ns tantaneous  spills  is 
exemplified  by  fay's  work  |  I3|,  wti  i  <  h  has  si  me  been  expanded  and  modified 


by  others  [14,15].  Earlier  Blokker  [16]  had  considered  some  parts  of  the 
same  problem.  The  final  forms  of  the  models  used  in  the  present  report  are 
similar  to  the  modifications  suggested  by  Mackay  [17]. 

Figure  III.l  shows  several  stages  in  the  idealized  spreading  of  a 
floating,  insoluble  chemical  in  an  open  body  of  calm  water  without  a  current 
The  spill  is  assumed  to  occur  instantaneously.  During  the  time  period  when 
the  slick  is  relatively  thick,  gravity  (i.e. ,  buoyancy)  causes  the  chemical 
to  spread  laterally.  As  can  be  seen  from  Figure  III. la,  there  is  unbalanced 
force,  Fg,  directed  radially  outward  around  the  non-submerged  part  of  the 
periphery  of  the  slick;  the  magnitude  of  the  force  is  roughly: 

Fg  *  2ttR  [ij  p0gh2  ( 1  -p0/p)]  (III.l) 

Here,  g  is  the  acceleration  of  gravity  and  the  other  quantities  are  de¬ 
fined  in  the  figure.  Because  of  the  unbalanced  force,  the  spilled  chemical 

rapidly  attains  a  radial  velocity  that  can  be  estimated  roughly  as  R/t, 
where  t  is  the  elapsed  time  since  the  spill  occurred.  The  average  accel¬ 
eration  of  the  spilled  liquid  is  thus  R/2t 2 .  Fay  [13]  hypothesized  that, 

in  this  early  phase,  the  gravitational  spreading  force  is  balanced  almost 
entirely  by  the  inertial  force  associated  with  the  acceleration  of  the  slick 
Thus: 

2irR  J,  pQgh2  (l-p0/p)|  o;p0  (nR?h)  (R/2t2)  (III. 2) 

Solving  for  R  as  a  function  of  time  gives: 

K  -  k,0  (V0  g/.)^  tb  (III. 3) 

Here,  K^g  is  a  constant  of  proportiona 1 i ty ,  V0  =  nR2h  is  the  volume  of 
the  spill ,  and  A  =  l-p0/p. 

At  some  later  time,  the  acceleration  of  the  spill  will  have  decreased 
significantly  because  the  viscous  drag  of  the  water  on  the  slick  will  have 
become  predominant;  see  Figure  III. lb.  The  viscous  drag  can  be  estimated 
as  follows.  The  thickness  <5  of  an  unsteady,  viscous  boundary  layer  is 
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roughly  (p^t/p*)  ,  and  the  viscous  shear  at  the  water-chemical  interface 
is  about  pw  V/6.  The  velocity  V  will  again  be  approximated  as  R/t. 
During  this  period,  the  balance  of  gravitational  and  viscous  drag  forces 
is  thus: 


2ttR  h  P0gh7  (l-p0/p)j  c<  nR7  f  uw  (R/t)/(pw  t/p  )  **  ]  (1 11.4) 

Solving  for  R  as  a  function  of  time  gives: 

j  y 

R  «  K20  ' V0ig/L  V  *w  ,  '  t  '•  (HI -5) 

where  =  pw/p  is  the  kinematic  viscosity  of  the  water.  A  factor  of 

(p0/p)^  in  Equation  (III. 5)  has  been  neglected  on  the  basis  that  it  is 

close  to  unity.  In  fact,  in  all  the  spreading  models,  p0  and  p  will 
be  assumed  to  be  interchangeable  except  when  their  ratio  is  subtracted 
from  one  (i.e.,  except  in  A).  Equation  (III. 5)  is  strictly  valid  only  when 
the  thickness  h  of  the  slick  is  less  than  the  thickness  6  of  the  boundary 
layer.  When  this  is  the  case,  the  slick  appears  to  move  as  a  "slug".  The 
flow  in  the  slick  is  undoubtedly  of  the  slug  type  when  the  viscosity  p0 
of  the  spilled  material  is  much  greater  than  pw,  but  Buckmaster  [18]  has 
shown  that  a  slug  flow  is  the  type  of  flow  that  occurs  even  when  p0  <  pw, 
so  long  as  p0/pw  >  0.1  or  so.  Since  Pg/py,  >  0.1  includes  all  chemicals 
of  interest  to  the  Coast  Guard,  a  separate  "low  viscosity"  spreading  model 
such  as  given  in  [1]  is  not  developed  here. 

At  some  point,  the  slick  becomes  so  thin  that  gravity  forces  are 
negligible.  Then,  the  relatively  small  interfacial  tension  at  the  periphery 
will  be  the  dominant  spreading  force.  From  Figure  III.lc,  the  net  spreading 
force  is  now  roughly  2ttR  (<;aw  -  aQa  -  oQW)  =  2ttRo,  where  a  is  the  "spread¬ 
ing  coefficient".  Here,  a  is  assumed  to  be  positive,  although  negative 
values  are  also  possible;  the  case  when  a  <  0  will  be  discussed  later. 

The  balance  of  forces  is: 

2mRo  R  uw  (R/ 1 )  /  („wt/p  )  S  1  (III. 6) 

Solving  for  R  as  a  function  of  time  gives: 
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(Ill- 7) 


R  r  Kjq  (<yf  / 1>  ^w)  t 

Note  that  in  this  phase  of  the  spreading,  the  rate  of  spreading  is  indepen¬ 
dent  of  the  spilled  volume.  But  since  the  time  at  which  Equation  (III. 7) 
becomes  applicable  depends  on  the  spilled  volume,  the  magnitude  of  R  is 
actually  an  implicit  function  of  VQ.  It  is  also  worth  noting  that  Equations 
(III.1)  -  (III. 7)  apply  even  when  the  volume  V0  itself  changes  with  time, 
as  it  would  for  a  continuous  spill  or  when  evaporation  and  dissolution  occur. 

The  approximate  e  apsed  time  when  one  phase  of  spreading  ends  and 
another  begins  is  assume  i  to  be  the  time  when  the  preceding  and  the  succeed¬ 
ing  phases  predict  the  same  slick  radius  [13,14,15].  Thus,  the  end  of  the 
gravity-inertial  phase,  and  the  beginning  of  the  gravity-viscous  phase,  can 
be  found  by  equating  ( 1 1 1 . 3 )  and  (I  II. 5)  to  give: 


t]  r  (K20/K10)  (in. 8) 

Likewise,  the  beginning  of  the  surface  tension-viscous  phase  occurs  at 

t2  --  (K20/K30)'  [V0  p‘  >wg  A/a1]'*  (I  II- 9) 

In  the  surface  tension-viscous  spreading  regime,  the  slick  is  ex¬ 
tremely  thin,  on  the  order  of  10"^  to  10~4  meters,  according  to  the  experi¬ 
ments  to  be  described  later.  The  evaporation  and  dissolution  from  such 
thin  slicks  is  negligible;  that  is,  a-  thin  slick  would  rapidly  disappear 
if  the  evaporation  and  dissolution  were  not  negligible.  Most  of  the  hazards 
are  presented  by  the  earlier  phases  of  spreading  (the  so-called  "thick 
slick").  Thus,  in  the  instantaneous  models  developed  here,  the  "thin"  or 
surface  tension-gravity  slick  will  be  neglected.  Further,  the  end  of  the 
first  phase  (the  gravity-inertial  phase)  of  the  spreading  occurs  soon  after 
the  spill  occurs,  in  comparison  to  the  total  time  duration  over  which  the 
thick  slick  spreads.  In  addition,  the  spreading  during  the  first  phase  is 
somewhat  dependent  on  the  size  of  the  puncture  in  the  ship  tank,  whether 
the  puncture  is  siilwierged  or  not,  and  other  details  of  the  source  of  the 
spill  that  cannot  he  included  in  the  model,  for  those  reasons,  the  gravity- 
inertial  phase  of  I  lie  spreading  is  only  i  in  hided  in  the  model  as  an  initial 
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condition  on  the  gravity-viscous  phase.  Since  the  gravity-viscous  phase 
constitutes  the  great  hulk  of  the  thick  slick  spreading  time,  neglecting 
the  details  of  the  gravity-inertial  phase  is  not  a  serious  limitation  to 
the  model . 

When  mass  is  lost  from  the  spill  by  evaporation  and  dissolution,  the 
preceding  formulation  of  the  model  is  inconvenient,  since  V0  is  then  a 
function  of  time.  For  that  reason,  the  model  of  gravity-viscous  spreaaing 
is  rewritten  as  suggested  by  Mackay  [17].  From  Equation  (III. 5),  the  sur¬ 
face  area  of  the  slick  is: 

A  =  "K2o  [V0  gA//  >w]  U'  tM  (HI -10) 

The  rate  of  change  of  the  area  with  respect  to  time  is  thus: 

=  V'  K2 o'  [V0'gA//awJ  t 

*  ^  K20>  [gAV0//vw]  ^  (dV0/dt)  (III. 11) 

Eliminating  the  time  variable  between  Equations  (III. 10)  and  (111.11)  and 
using  the  definition  that  m-]oss  =  -pQdV0/dt  gives: 

JY  =  *5  (,r  K2q')'  [gA//  .<w]  h  A 

-h  (m1oss/f>0h)  (III. 12) 

This  equation  must  be  augmented  by  the  initial  condition  that  A  =  , 

where  A^  is  the  area  of  the  thick  slick  at  the  end  of  the  gravi ty- i ner tial 
phase: 

A  i  n  K?0-  (K20/K1n)  [7ug//  V]‘"  (III. 13a) 

The  time  at  which  Aj  occurs  is  given  by  Equition  (III.''',): 

Ij  (Kxn/K,(l)"  rv()/-|/  'W)V  (III.13b) 
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Equation  (III. 13a)  is  obtained  by  combining  Equations  (III. 8)  with  either 
(III. 3)  or  (III. 5).  A  relation  predicting  the  value  of  h(t)  is  also 
needed;  since  p0Ah  is  equal  to  the  total  mass  in  the  spill,  it  is  evi¬ 
dent  that: 

'  -['"loss  +  P0h  (dA/dt)]/p0A  (I II.  14) 

with  the  initial  condition  that  h-,-  =  V0/A  at  time  t-j .  Note  that  the  loss 
of  mass  is  neglected  during  the  short  period  when  the  slick  is  spreading  in 
the  gravity-inertial  phase. 

Models  for  a  spill  in  a  channel  of  width  w,  where  the  spreading 
occurs  one-dimensionally  rather  than  radially,  can  be  developed  analogously. 
Table  III. 2  summarizes  these  one-dimensional  and  radial  instantaneous-spill 
models.  The  numerical  values  for  the  empirical  constants,  C]q,  C20,  K^q, 
and  K20  shown  in  the  table  will  be  discussed  in  Section  7.1. 

In  the  computerized  models,  the  radial -spreading  model  is  also  used 
to  compute  the  initial  phases  of  spreading  of  a  spill  in  a  channel.  The 
one-dimensional  spreading  model  is  used  to  continue  the  computations  after 
the  slick  has  spread  completely  across  the  width  of  the  channel  (that  is, 
after  the  effects  of  the  channel  boundaries  become  evident).  The  radial 
and  one-dimensional  models  can  also  be  applied  to  spills  occurring  when 
there  is  a  current  or  a  wind.  The  current  and  wind  merely  translate  the 
entire  slick  as  a  body  without  affecting  the  spreading.  Motion  of  the  slick 
is  discussed  later  in  Section  III. 5. 

When  the  surface  tension  spreading  coefficient  o  is  negative,  the 
models  developed  above  for  the  surface  tension-viscous  phase  of  spreading 
are  no  longer  applicable.  In  fact,  a  surface  tension  spreading  phase  does 
not  exist  when  a  <  0,  and  the  spreading  ceases  when  the  gravity  force  is 
balanced  by  the  interfacial  tension.  At  that  time,  the  slick  breaks  up 
into  many  smaller  slicks,  or  "lenses"  [19].  The  main  effect  on  the  spread¬ 
ing  of  the  thick  slick,  which  is  the  part  of  the  slick  of  primary  interest 
here,  is  that  the  spreading  may  cease  at  a  somewhat  larger  thickness  than 
when  o  >  0.  The  ultimate  thickness  can  he  estimated  [19]  as 
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(III. 15) 


fyuiniiiium  (  ~  2o/p09 A) 

For  example,  if  a  =  -1  x  10-3  newtons/meter,  p0  =  900  kg/m3,  and  A=0.1, 
the  predicted  ^Vni n imum  3S  ahout  1.5  x  10"  3  meters.  It  is  recommended  that, 
when  a  <  0,  Equation  (III. 15)  should  be  used  to  compute  a  minimum  value  of 
slick  thickness;  this  value  can  then  be  used  as  an  input  to  the  computerized 
model  to  account  for  the  diminished  spreading  of  the  thick  slick. 


1 1 1 . 2 . 4  Continuous  Spills 


The  models  described  in  Section  III. 2. 3  for  instantaneous  spills  are 
readily  modified  to  cover  continuous  spills  when  there  are  no  currents  or 
winds.  The  spilled  volume  V0  is  merely  replaced  by  the  volume  discharged 
up  to  time  t,  i.e.,  by  mt/pQ.  (Recall  that  the  derivation  of  the  models 
did  not  require  that  VQ  be  constant.)  For  example.  Equation  (III. 5)  be¬ 
comes 
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(III. 16) 


(The  constant  of  proportional ity  K21  is  al  lowed  for  generality  to  be 
different  from  K2g,  the  constant  in  Equation  (III. 5)).  When  the  models 
are  expressed  in  terms  of  areas,  the  resemblance  to  the  instantaneous  models 
is  even  more  clear.  Table  III. 3  summarizes  these  models.  Once  again,  the 
model  for  an  open-water  spill  is  used  in  the  computerized  version  to  predict 
the  spreading  of  a  spill  in  a  channel  until  the  time  when  the  spill  com¬ 
pletely  fills  the  width  of  the  channel.  (The  numerical  values  of  C]i,  C2-| , 
K-|^,  and  K2i  are  discussed  in  Section  V.l) 


One  major  difference  between  a  continuous  and  an  instantaneous  spill 
is  that  for  a  continuous  spill  the  surface  tension-viscous  phase  occurs  simul¬ 
taneously  with  the  gravity-viscous  phase  rather  than  following  it  in  time. 
Thus,  the  part  of  the  slick  that  is  spreading  in  the  gravity-viscous  phase 
(i.e.,  the  thick  slick)  must  supply  the  mass  needed  by  that  part  of  the  slick 
spreading  in  the  surface  tension-viscous  phase  (i.e.,  the  thin  slick).  Al¬ 
though  the  apparent  loss  ol  mass  from  the  thick  slick  is  small,  the  models  do 
account  for  it.  The  method  used  is  th.it  suggested  by  Muckay  [17].  The  thin 
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slick  is  assumed  to  have  a  constant  thickness  h.  Further,  the  initial  area 
of  the  thin  slick  is  assumed  to  be  some  multiple  (Mackay  suggests  eight)  of 
the  initial  area  of  the  thick  slick.  The  rate  of  change  of  the  thin  slick 
area,  A,  is  also  shown  in  Table  III. 3.  Since  the  experiments  to  be  de¬ 
scribed  later  did  not  attanpt  to  establish  the  empirical  constants  of  the 
surface  tension-viscous  phase,  the  constants  suggested  in  the  literature 
[7,8,13,14]  are  used  in  the  models.  It  is  emphasized  that  the  spreading  of 
the  thin  slick  is  used  only  to  compute  a  relatively  small,  apparent  loss 
of  mass  from  the  thick  slick  so,  these  approximations  used  in  developing  thin 
slick  models  are  not  a  limiting  factor  in  the  accuracy  of  the  models. 


When  there  is  a  current  or  wind  that  transports  the  slick,  the  shape 
of  a  continuous  spill  is  distorted  and  the  previous  models  are  not  applicable 
The  upstream  edge  of  the  slick  remains  fixed  to  the  source  but  the  reit  of 
the  spill  is  transported  downstream.  Thus,  the  slick  is  no  longer  syrtunetric 
(one-dimensional  or  circular)  about  the  source.  Waldman,  et  al.  [7]  has, 
however,  developed  a  model  of  a  continuous  spill  in  a  current  that  is  adapted 
here  for  a  loss  of  mass.  For  a  spill  in  open  water,  as  an  example,  the  down¬ 
stream  edge  is  assumed  to  be  swept  away  from  the  source  at  a  speed  equal  to 
the  current  Uy.  (Uy  will  also  be  made  to  include  the  effects  of  wind,  as 
discussed  later.)  The  upstream  edge  remains  attached  to  the  source.  The 
sides  of  the  slick  are  assumed  to  spread  laterally  in  accordance  with  one¬ 
dimensional  gravity-viscous  spreading.  The  resulting  slick  has  a  triangular 
shape,  with  the  vertex  at  the  source  and  the  base  at  the  downstream  edge. 

To  develop  the  model,  it  is  imagined  that  a  stream  of  instantaneous  sfjills, 
eagh  of  volume  m  6t/2p0  is  transported  downstream  with  a  speed  Uy,  j  and 
the  slick  from  each  such  spill  spreads  along  a  channel  of  width  Uy  6 1 j 
perpendicular  to  the  direction  of  the  current.  (The  factor  of  one-haljf 
accounts  for  the  fact  that  cnly  half  the  spill  spreads  in  each  direction.) 

The  width  W(x)  of  the  resulting  slick  at  any  downstream  location  x  j  can 
therefore  be  derived  from  transforming  the  one-dimensional  instantaneops- 
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The  initial  conditions  for  the  gravity-viscous  phase  can  be  derived  similarly. 
Waldman's  type  of  model  will  not  accurately  represent  the  shape  of  the  slick 
or  the  area  when  the  transport  velocity  Uy  is  small  compared  to  the  gravi¬ 
tationally-induced  spreading  velocity.  When  Uy  is  small,  the  slick  will 
not  take  the  shape  of  a  triangle  with  the  vertex  at  the  source,  but  instead 
will  be  an  ellipse  that  surrounds  the  source  and  extends  somewhat  farther 
downstream  of  the  source  than  upstream.  This  kind  of  spreading  may  arise  when 
there  is  a  wind  but  no  current,  since  only  a  small  part  of  the  total  wind 
contributes  to  Uy.  The  computerized  models  do  not  include  such  cases  ex¬ 
plicitly.  It  is  suggested  that  they  be  treated  by  first  setting  Uy  to  zero 
identically  to  compute  the  size  of  the  slick  as  a  function  of  time,  and  then 
repeating  the  calculations  with  the  true  value  of  Uy  to  compute  both  the 
downstream  position  of  the  slick  and  an  estimate  of  the  mass  evaporated  from 
the  slick. 

For  a  continuous  spill  in  a  channel,  the  model  assumes  that  the  spread¬ 
ing  is  in  the  downstream  direction.  The  upstream  edge  of  the  slick  remains 
attached  to  the  source  and  the  downstream  edge  is  swept  away  by  a  combination 
of  spreading  and  transport.  Thus,  Uyw  must  be  added  to  the  dA/dt  expres¬ 
sion  derived  previously  for  a  continuous  spill  in  a  channel  without  a  current. 

Table  III. 4  summarizes  the  models  of  continuous  spills  in  a  current. 

In  the  computerized  versions  of  the  continuous  spill  models,  an  appropriate 
instantaneous  spill  model  is  used  to  continue  the  spreading  predictions  after 
the  discharge  has  stopped.  For  example,  for  a  spill  in  open  water,  the  in¬ 
stantaneous  spill  model  for  open  water  is  used  with  an  initial  area,  thick¬ 
ness,  and  mass  equal  to  the  final  values  of  the  slick  from  the  continuous 
spill.  There  may  be  a  mismatch  in  the  shape  of  the  slick  at  the  time  the 
switch  is  made,  since  the  instantaneous  spill  assumes  a  circular  shape  while 
a  continuous  spill  in  a  current  predicts  a  triangular  shape,  but  a  more  com¬ 
plicated  transition  model  is  not  believed  to  be  warranted.  After  some  time 
has  elapsed,  the  predicted  shape  of  the  i nstantaneous. spi 1 1  is,  in  any  event, 
more  in  accordance  with  expectations.  (The  numerical  values  of  C -j 2 ’  ^22’ 
and  are  discussed  in  Section  V.  1.) 
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SPREADING  MODELS  FOR  CONTINUOUS  SPILLS  IN  A  CURRENT 
(A, h  -v.  thick  slick;  Tl.Ti -v  thin  slick) 


(oUj2/ p  ) 


1 1 1. 2. 5  Maximum  Size  of  Slick 

All  the  models  must  take  into  account  the  possibility  that  the  slicks 
attain  a  maximum  possible  size.  For  oil,  it  has  been  observed  that  spread¬ 
ing  eventually  stops  for  a  variety  of  reasons  [7,8].  Experiments  with  pure 
chemicals,  as  described  later,  show  that  although  the  thin  slick  may  never 
cease  to  spread  (when  o  >  0),  the  thick  slick  apparently  stops  spreading 
when  the  average  thickness  is  of  the  order  of  10“4  meters.  When  the  thick¬ 
ness  is  less  than  10"^  meters,  the  thick  slick  becomes  indistinguishable  from 
the  thin  slick.  Since  the  interest  in  the  Hazard  Assessment  Computer  System 
is  primarily  in  the  thick  slick,  the  spreading  is  assumed  to  stop  when  the 
thickness  of  the  thick  slick  is  less  than  10"*  meters.  (In  the  computerized 
version,  the  user  has  the  option  of  changing  -he  minimum  allowable  thickness 
for  the  thick  si ick. ) 

1 1 1 . 3  Evaporation  Models 

1 1 1.3.1  Discussion 

In  general,  the  mass  and  heat  transfer  processes  associated  with  chem¬ 
ical  spills  in  the  environment  will  be  turbulent.  For  chemical  spills  which 
float  on  water,  the  convective  mass  transfer  associated  with  evaporation 
will  be  oy  a  turbulent  boundary  layer.  The  primary  source  of  information 
applicable  to  the  present  problem  for  spills  on  water  is  the  literature  on 
air-sea  interactions.  The  air-sea  interaction  research  involves  all  of  the 
relevant  mechanisms  associated  with  chemical  spills  on  open  water.  An  excel¬ 
lent  review  of  the  subject  has  been  written  by  Coantic  [20],  and  a  recent 
collection  of  papers  on  the  subject  is  contained  in  Favre  and  Hasselmann  [21]. 

According  to  Resch  and  Selva  [22],  the  fluxes  for  momentum  and  mass 
transfer  are  given  by 

<o  ^  P0  (Cf/2)  (III.  10) 

J0  =  Pa  ■  (Cs  -  CJ  Da 
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where  t0  is  the  shear  stress,  pa  the  air  density,  Vw  the  freestream 
wind  velocity,  Cf  the  friction  coefficient,  J0  the  mass  flux,  Cs  the 
mass  fraction  of  chemical  vapor  at  the  surface  which  is  assumed  to  be  at 
saturation,  C  its  freestream  value  which  is  assumed  to  be  zero,  and  Da 
the  Dalton  number.  From  these  equations  the  surface  shear  stress  and  mass 
flux  can  be  predicted  if  Cf  and  Da  are  known  from  theory.  The  other 
quantities  can  be  measured  either  directly  or  indirectly.  From  Schlichting 
[23]  and  classical  turbulent  boundary- layer  theory,  the  friction  coefficient 
for  a  smooth  flat  plate  is 

Cf/2  =  0.037  ReL'1/5  (III. 20) 

where  Re^  3  Vw  L/va  is  the  Reynolds  number  based  upon  the  length,  L,  of 
the  plate.  By  Reynolds  analogy  from  Eckert  and  Drake  [?4],  the  Dalton 
number  is 

Da  =  0.037  ReL'1/5  Sc'2/3  (III. 21) 

where  Sc  =  va/D  is  the  Schmidt  number  and  D  the  molecular  diffusivity  of 
the  chemical  in  air.  This  Dalton  number  relation  was  used  in  [1]  for  the 
calculation  of  mass  transfer  in  the  present  HACS  program. 

The  present  flat  plate  boundary  layer  model  in  HACS  is  not  applicable 
to  flows  over  water  for  the  following  reasons: 

(a)  According  to  Wu  [25],  the  ocean  is  aerodynamics lly  smooth  only 
for  wind  speeds  of  less  than  3  m/s. 

(b)  A  water  surface  is  not  rigid. 

(c)  Reynolds  analogy  is  not  valid  for  rough  surfaces.  Roughness 
will  increase  momentum  transfer,  but  heat  and  mass  transfer  may 
diminish  with  roughness. 

(d)  A  length  scale  l  is  difficult  to  define  in  an  atmospheric 
boundary  layer. 

The  previous  theoretical  develo|»iient  for  turbulent  boundary  layers  is 
based  upon  outcr-scalc  variables  where  the  outer  scale's  are  Vw,  L,  and  the 
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boundary  layer  thickness  6a.  The  boundary  layer  thickness  is  related  to 
the  longitudinal  length  scale  by  j 

6a/x  =  0.37  Rex"1/5  (III. 22) 

Tl-e  revised  model  for  HACS  is  based  on  inner-scale  variables.  Near 

the  water  surface  the  velocity  and!  concentration  profiles  are  universal  and 

i 

independent  of  the  outer  scales.  The  fluxes  away  from  the  surface  where 
molecular  effects  are  small  are  given  by 

I 

T/pa  =  -j  <  uw  >  (III .23) 

J/pa  =  <  cw  >  ‘  (III. 24) 

where  the  cross-correlation  <uw>]  is  also  known  as  the  Reynolds  Stress. 

In  the  layer  outside  the  viscous  sublayer  the  fluxes  are  constant  and  the 
profiles  are  logarithmic.  As  a  consequence  of  the  constant  flux  hypothesis, 
the  profiles  are 

I 

| 

u+  -  (U  -  U$)/u*  *  A  £h  (z+/ZQ+)  (III. 25) 

c+  3  (C  -  Cs)/c*  »  A  Sct  In  (z+/zoc+)  (III. 26) 

where  A  *  <’  is  the  reciprocal  Von  Kennan  constant,  z0  the  integration 
constant  or  roughness  parameter,  $ct  the  turbulent  Schmidt  number, 
z+  =  zu*/v,  u*  and  c*  are  the  friction  velocity  and  concentration,  and 
Us  and  C$  are  the  surface  values  of  velocity  and  concentration.  The  pro¬ 
files  in  Equations  (III. 25)  and  (III. 26)  are  dependent  only  on  the  surface 
roughness  and  not  on  any  external  length  scale. 

1 1 1 . 3 . 2  Genera  l  Descr  ipt  i  on 

I 

The  evaporation  model  for  the  HACS  revision  is  based  on  inner-scale 
variables  in  contrast  to  outer-scale  variables  of  the  previous  HACS  model. 
The  new  model  has  the  following  features  and  advantages: 
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(a)  No  external  length  scale  such  as  a  spill  dimension  is  required 
for  the  calculation  of  Dalton  number.  Da. 

(b)  Roughness  effects,  i.e.,  wave  height,  are  included.  The  flow 
is  defined  to  be  rough  at  wind  speeds  above  5  m/s. 

(c)  Only  standard  meteorological  and  oceanographic  data  (that  is, 
air  temperature,  barometric  pressure,  wind  velocity,  sea  surface 
temperature,  and  wave  height)  are  required  as  input  data. 

(d)  Wind  velocity  data  are  based  upon  a  standard  height  of  10  meters. 

Additionally,  all  the  necessary  physical  property  data  for  air,  water, 
and  some  representative  chemicals  have  been  included  in  the  computerized  model 
to  make  the  mass  transfer  calculations.  Chemical  diffusivities  are  required 
for  the  Schmidt  number  in  the  mass  transfer  calculations,  but  this  informa¬ 
tion  is  not  included  in  the  present  CHRIS  Hazardous  Chemical  Data  files.  A 
detailed  description  of  the  mathematical  models  for  the  chemical  properties 
is  contained  in  Appendix  A  with  tables  of  the  properties  at  standard  condi¬ 
tions. 


III. 3. 3  Evaporation  Rate 

A  reciprocal  Dalton  number  is  calculated  for  mass  transfer  from  a 
theory  by  Kader  and  Yaglom  [26,27]  and  Yaglom  and  Kader  [23]  which  is  given 
by 

Da*  *  A  Sc*  fcn  <5+  +  8  (Sc,  hm+)  +  8]  (III.27) 

where  6+  is  the  boundary  layer  thickness  in  inner-scale  variables,  8  is 
a  universal  function  based  upon  Schmidt  numbe'  and  the  mean  protrusion  (wave) 
height  1^,,  and  8-j  is  a  constant  dependent  on  flow  geometry.  For  a  boun¬ 
dary  layer  8]  is  2.35.  The  Dalton  number  Da*  is  non-dimensional i zed  with 
u*  rather  than  Vw.  The  inner  and  outer  scale  Dalton  numbers  are  related  by 

Da  =  Da*  (u,r/Vw)  (1 1 1.28) 

Thus,  the  mass  transfer  calculation  is  accomplished  in  Equation  (III.19)  by 
replacement  of  Vw  Da  by  n*  Da*.  I  he  ('•  function  for  a  smooth  surface 
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from  Kader  and  Yaglom  [27]  is 

8  =  12.5  Sc^  +  A  Sct  An  Sc  -  5.3  (III. 29a) 

and  for  a  rough  surface  from  Yaglom  and  Kader  [28]  is 

8  «  0.55  /^+  (Sc2^  -  0.2)  -  A  Sct  An  hm+  +  11.2  Sct  (III. 29b) 
Also,  from  [28]  the  turbulent  Schmidt  number,  Sc^,  is  0.85. 

A  sample  calculation  of  Dalton  number  for  the  evaporation  of  water 
from  a  smooth  surface  is  presented  in  Figure  1 1 1. 2  where  the  Schmidt  number 
for  water  vapor  is  0.593.  The  theory  of  Kader  and  Yaglom  [27]  is  compared 
to  that  of  Street  [29]  which  is  a  related  theory.  A  review  of  these  and 
other  mass  transfer  theories  is  presented  in  [30].  Also,  for  comparison, 
the  results  of  wind  tunnel  experiments  [22,31]  are  also  included  in 
Figure  III. 2.  The  results  in  [22]  are  probably  from  smooth  flow  since  their 
wind  speed  was  3.5  m/s;  however,  some  results  in  [31]  are  for  rough  flow. 
Since  no  wave  height  measurements  were  reported  for  either  set  of  experi¬ 
ments,  «o  comparison  is  possible  with  rough  flow  theory.  The  following 
conclusions  can  be  drawn  from  Figure  III. 2: 

(a)  The  scatter  in  data  for  evaporation  experiments  is  large. 

(b)  The  agreement  between  theory  and  experiment  is  poor. 

(c)  The  theories  of  either  Yaglom  and  Kader  [28]  or  Street  [29] 
are  adequate  for  the  present  application. 

The  only  information  required  in  addition  to  the  meteorological  and 
oceanographic  data  for  the  calculation  of  mass  transfer  is  the  friction 
velocity.  The  friction  velocity  is  computed  from  the  wind-stress  coeffi¬ 
cient  as  follows: 


u*  =  Vw  (Cf /2)h  (III. 30) 

where  Vw  is  the  wind  velocity  measured  at  10  meters  above'the  water  and 
Cf/2  is  the  wind-stress  coefficient.  Numerous  models  of  wind-stress 
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Inner-scale  Dalton  number.  Da 


coefficient  are  available  in  the  oceanographic  literature.  Some  representa¬ 
tive  relations  are  suirmarized  in  Table  III. 5.  ^  The  equations  selected  for 
this  program  are  from  Wu  [25] 

Cf/2  =  (0.8  +  0.065  Vw)  x  10'3  (III. 31a) 

for  1  <  Vw  <  20  m/s  and 

Cf/2  *  (  1.25/VwVs)  x  10*3  (III. 31b) 

for  Vw  <  1  m/s.  In  the  computer  program,  the  1  m/s  boundary  between  the  two 
values  of  wind-stress  coefficient  is  set  at  3.064  m/s.  At  this  wind  velo¬ 
city  the  two  wind-stress  coefficients  have  the  same  value.  In  addition, 

Wu  [25]  states  that  the  flow  is  aerodynamical ly  smooth  for  Vw  <  3  m/s. 

The  selection  of  Wu’s  model  was  arbitrary.  However,  the  Wu  model  is  simple, 
and  it  is  similar  to  those  of  other  investigators. 

In  the  event  that  wave  height  information  is  not  available,  the  wave 
height  can  be  modeled  with  the  following  relation  from  Van  Dorn  [34] 

=  0.01384  Vw  (III. 32) 

where  Vw  is  in  meters/second  and  the  mean  wave  height,  is  in  meters. 

This  equation  is  valid  only  for  a  fully  developed  sea;  thus,  it  is  an  upper 
bound  for  wind  generated  waves.  With  Equations  (III. 31a)  and  (III. 32)  the 
wave  height  can  be  calculated  from  the  wind  speed  as  an  inner-variable  scale. 
The  result  is  plotted  in  Figure  III. 3. 


A  plot  of  some  of  these  relations  is  presented  in  [32,33] 
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TABLE  III. 5  WIND-STRESS  COEFFICIENTS  OF  VARIOUS  AUTHORS 


III. 4  Dissolution  Models 


111. 4.1  Discussion 

The  dissolution  model  in  the  present  MACS  model  is  one  which  is  valid 
only  in  rivers  and  streams.  The  dissolution  model  included  in  HACS  [2]  was 
developed  by  Fortescue  and  Pearson  [35]  for  the  dissolution  of  gases  in  flow 
ing  water.  A  more  recent  model  has  been  included  in  the  revision. 

For  dissolution  in  open  bodies  of  water  such  as  lakes  and  coastal 
waters,  the  mass  transfer  model  described  in  the  previous  section  has  been 
applied  to  dissolution.  The  mass  transfer  process  on  the  two  sides  of  the 
gas-liquid  interface  has  been  assumed  to  be  the  same.  A  boundary  layer  is 
formed  in  the  liquid  by  the  transfer  of  momentum  to  the  water  by  the  wind. 
Since  the  shear  stress  across  the  interface  is  assumed  to  be  continuous,  the 
friction  velocities  in  air  and  water  are  related  as  follows: 

u*w  =  u+a  (Pa /P)H  (III. 33) 

With  this  assumption,  dissolutiw  of  the  chemical  spill  into  the  water  can 
be  computed  with  the  same  equations  as  its  evaporation  into  the  air. 

111. 4. 2  General  Description 

The  dominant  effect  in  dissolution  is  the  Schmidt  number  for  the 
chemicals  in  water,  which  is  on  the  order  of  a  thousand.  According  to 
Shaw  and  Hanratty  [36],  the  Dalton  number  for  sufficiently  large  Reynolds 
number  and  Schmidt  number  will  reduce  to 

Da*  =  K  Sc'n  (III. 34) 

where  2/3  £  n  <•  3/4  and  <  is  a  constant  determined  from  experiment.  As 
the  previous  section  states,  information  for  Schmidt  number  is  not  included 
in  CHRIS.  The  description  in  Section  III. 3. 2  for  evaporation  is  also  valid 
for  dissolution.  The  length  dimension  for  6+  in  Equation  (III. 27)  must  be 
large  compared  to  6C  and  was  assumed  to  be  one  meter. 
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III. 4. 3  Mass  Transfer  From  Sli-k  Into  Water 

The  mass  transfer  calculations  for  dissolution  in  lakes,  coastal 
waters,  and  the  open  ocean  are  accomplished  with  the  same  equations  as  for 
evaporation.  From  the  wind  velocity,  the  friction  velocity  in  air  is  com¬ 
puted  from  Equations  (III. 30)  and  (III. 31a, b)  and  the  friction  velocity  in 
water  from  Equation  (III. 33).  The  Dalton  number  Da*  is  calculated  from 
Equations  (III. 27)  and  (III. 29a, b)  where  the  physical  properties  such  as 
Schmidt  number,  density,  and  viscosity  are  for  water.  Then,  the  mass 
transfer  in  physical  units  is  computed  from  Equations  (III. 28)  and  (III. 19) 
where  the  density  is  now  the  water  density,  Cs  now  the  water  solubility 
of  the  chemical  in  mass  fraction  of  water,  and  the  freestream  concentra¬ 
tion,  C  is  zero. 

7  CO 

The  Dalton  number  for  dissolution  in  a  river  or  stream  is  calculated 
from  a  formula  recommended  by  Ueda ,  et  al .  [37]  as  follows: 

Da*  =  0.0626  Sc“Va  (III. 35) 

In  this  formulation,  the  Oalton  number  Da*  is  based  upon  the  friction 
velocity  for  the  bottom.  No  correlation  for  the  friction  coefficient  for 
rivers  exists  which  is  similar  to  that  for  wind  stress  in  Table  III. 5.  In 
the  absence  of  such  a  correlation,  the  following  was  applied  from 
Schlichting  [23]  for  a  completely  rough  regime. 

(Cf/2)"*5  =  Uc/u*  =  5.66  log  (2d/hs)  +  4.92  (III. 36) 

where  hs  is  Nikuradse's  sand  roughness,  d  is  the  depth  of  the  river, 
and  Uc  is  the  mean  current.  Also,  Fischer,  et  al.  [38]  claim  a  reason¬ 
able  assumption  is  u*  =  0.1  Uc. 

Shear  stress  velocity  can  easily  be  computed  from  Equation  (III. 36) 
for  a  river;  however,  an  estimate  must  be  made  for  the  bottom  roughness. 
Experimental  results  for  various  channels  compiled  from  Fischer,  et  al. 
[38,39]  are  suiunari zed  in  Table  III. 6  and  plotted  in  Figure  III. 4.  The 
data  in  Figure  1 1 1. 4  are  compared  with  the  snonth  channel  theory  of 
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SKIN  FRICTION  COEFFICIENT  FOR  OPEN  CHANNEL  EXPERIMENTS 


ed  from  Fischer,  et  al.  [34]  and  Fischer  [39] 


icjure  III. 4.  Friction  Coefficient  for  Open  Channel  Flows.  Numbers  Correspond 
to  Experimental  Data  in  Table,  and  Solid  Line  is  Qlasius  Equation, 


Bias ius  for  turbulent  flow.  All  data,  with  the  exception  of  Yotsukura  and 
Sayre  [40]  are  consistent  with  a  rough  wall  hypothesis.  The  average  value 
of  the  shear  stress  coefficient,  Cf/2,  for  the  experimental  data  is 
5.4  x  lO*^  which  corresponds  to  a  relative  roughness  of  2d/hs  =  34.4  from 
Equation  (III. 36).  Thus,  roughness  height  can  be  estimated  from 

hs  =  0.0581  d  (III. 37) 

where  the  mean  depth,  d  of  the  river  must  be  given. 


1 1 1 . 5  Movement  Models 

1 1 1. 5.1  Discussion 

Wind,  waves,  and  currents  affect  both  the  shape  of  a  continuous  spill, 

as  was  discussed  in  Section  III. 2. 4,  and  the  drift  or  overall  movement  of 

either  an  instantaneous  or  a  continuous  spill.  Nearly  all  the  transport  pre¬ 
dictions  in  the  literature  conform  to  the  basic  premises  of  the  "Navy"  model 
[41]  which  states  that  the  vector  displacement  AR  of  an  element  of  the 
slick  is 

A  R  =  ifc  At  +  Ky,  Vw  At  +  Uw  At  (III. 38) 

Here  At  is  the  computational  time  period;  TTC  is  any  current  that  is  not 
produced  by  the  wind;  Vw  is  the  wind  10  meters  above  the  water  and  !<„  is 
a  factor  that  relates  the  wind  to  the  current  produced  by  it;  and  Uw  is  a 
drift-current  produced  by  any  waves  not  directly  due  to  the  wind.  The  value 
of  the  wind  factor  Ky,  is  subject  to  some  dispute,  but  values  of  0.03  to 
0.04  are  commonly  accepted  [7],  In  the  computerized  models  here,  a  value  of 
Kw  =  0.035  is  used.  The  effect  of  waves  in  producing  a  net  transport  current 

tlw  is  usually  small  and  is  neglected  [7,  8,  42].  For  the  computerized 

models  developed  here,  the  currents  and  wind  values  are  supplied  as  input 
data,  as  described  below.  Sets  of  typical  data  for  selected  bodies  of  water 
of  unusual  importance  can  also  be  developer  in  advance,  which  is  the  method 
used  in  the  Norwegian  "0ILSIM"  model  [11]. 
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III. 5. 2  Rivers  and  Channels 


For  rivers  and  channels,  either  a  constant  current  or  a  tidal ly-varying 
current  can  be  used  in  the  computerized  models.  Tidal  currents  are  assumed 
to  be  of  the  form 

Uc  =  U0  +  Ui  sin  [2T-  (t +  a)j  (III. 39) 

where  U0  and  lli  are  the  constant  and  the  time-varying  components  of  the 
current,  T  is  the  tidal  period,  and  a  is  a  parameter  chosen  such  that 

the  appropriate  phase  of  the  tide  will  coincide  with  time  t  =  0  of  the 
spill  initiation.  The  wind  is  assumed  either  to  be  constant  or  a  specified 
function  of  time.  A  time-varying  wind  is  simulated  by  giving  the  wind  speed 
at  up  to  ten  different  instants  of  time. 

Instantaneous  Spills.  -  The  slick  formed  from  an  instantaneous  spill 
is  transported  in  accordance  with  the  motion  of  its  centroid.  That  motion 
is  computed  directly  from  Equation  (III. 38);  however,  only  the  component 
of  the  wind  aligned  with  the  channel  is  used  in  the  wind  term,  0.035  Vw  At. 

Continuous  Spills.  -  Equation  (III. 38)  is  used  to  evaluate  the  trans¬ 
port  velocity  Uj  needed  in  the  spreading  model.  Since  a  time-varying  Uj 
is  not  permitted  in  the  continuous-spill  spreading  models  as  formulated  here, 
a  time-average  Uj  is  computed  whenever  Uc  or  Vw  is  a  function  of  time*,' 
the  average  Is  taken  over  the  shorter  of  the  spill  duration  or  the  tidal 
cycle  to  giv^ 


UT  r  Uc  +  0.035  Vw  cos  0  (111.40) 

where  0  is  the  angle  the  wind  makes  with  the  current  direction. 

Tin*  slick  formed  by  ,i  continuous  spill  must  remain  attached  to  the 
source.  It  the  current  is  tidal,  and  the  reverse  flow  is  significant,  I  he 
slick  is  allowed  to  move  with  the  reversed  flow  after  the  spreading  has 
been  ac<  minted  tor.  I  he  condition  used  to  determine  the  s ign i f i< an< e  of  the 
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movement  is  whether  the  average  value  of  Uj  is  greater  or  less  than  three- 
tenths  of  the  maximum  value  of  Uj.  When  Ilj  >  0.3  (UTWximum*  the  back~ 
and-forth  motion  of  the  slick  is  small  compared  to  the  overall  downstream 
motion  of  the  leading  edge,  and  the  reversed  motion  of  the  slick  is  neglected. 
When  Uj  <  0.3  (Ut Maximum’  on  the  other  hand,  a  definite  reverse  motion  of 
the  slick  is  noticeable,  and  the  slick  may  move  upstream  of  the  source 
temporarily.  In  the  computerized  version,  the  motion  of  the  leading  and 
trailing  edges  of  the  slick  for  this  latter  case  are  approximated  as: 

AZjje  =  AA/2w  +  UT  At  (111. 41a) 

Azte  *  -AA/2w  +  UT  At  (III. 41b) 


Here  AA  is  the  change  in  area  caused  by  the  spreading  (computed  from  the 
average  Uj)  over  the  time  interval  At.  If  Equation  (III. 41b)  predicts 
that  zt«  >  0  (where  zte  =  Z  Az^  summed  up  to  the  time  of  interest), 
the  computerized  model  sets  zte  *  0  since  the  trailing  edge  of  the  slick 
cannot  move  downstream  of  the  source.  (That  is,  a  tidal  current  may  trans¬ 
port  part  of  the  slick  back  past  the  source  but  it  cannot  separate  the  slick 
from  the  source.) 

After  a  continuous  discharge  has  ceased,  the  subsequent  motion  of  the 
slick  is  treated  similarly  to  that  from  an  instantaneous  spill. 

1 1 1. 5. 3  Open  Water 

In  the  computerized  models,  two  kinds  of  "open  water"  can  be  speci¬ 
fied:  lakes  and  coasts.  A  lake  can  be  further  idealized  as  essentially 
circular  or  rectangular,  or  the  boundary  coordinates  of  the  lake  can  be  speci¬ 
fied  at  up  to  ten  locations  to  allow  a  more  realistic  description.  Likewise, 
a  coast  can  be  specified  as  straight  or  by  giving  up  to  ten  pairs  of  coordi¬ 
nates  to  describe  a  more  realistic  shape.  The  wind  can  be  specified  either 
as  constant  or  as  a  function  of  time  in  a  way  similar  to  that  described  for 
rivers  and  channels.  the  torrent  can  be  given  as  a  constant  for  the  entire 
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body  of  water,  or  as  a  function  of  time  (by  giving  values  at  up  to  ten  in¬ 
stants  of  time),  or  as  a  function  of  position  (as  described  below),  or  as  a 
function  of  both  time  and  position. 

To  describe  a  current  as  a  function  of  position  in  the  computerized 
models,  a  grid  is  superimposed  on  the  water-body  description,  as  shown  in 
Figure  III. 5.  The  x  and  y  components  of  the  currents  must  be  specified 
for  each  of  the  nine  rectangular  “boxes"  (for  lakes)  or  "slices"  (for  coasts). 
(The  numbering  system  used  in  the  computerized  models  is  shown  in  the  figure.) 
If  the  current  is  also  a  function  of  time,  the  x  and  y  components  must  be 
given  for  each  of  the  boxes  or  slices  at  up  to  ten  instants  of  time. 

Instantaneous  Spills.  -  The  movement  of  the  slick  formed  from  an  in¬ 
stantaneous  spill  is  computed  as  a  function  of  time  from  Equation  (I II. 38) 
until  the  edge  of  the  thick  slick  arrives  at  a  boundary  of  the  open  water. 

Continuous  Spills.  -  For  a  continuous  spill,  the  time-average  value 
of  Uj  for  the  box  or  slice  containing  the  spill  source  is  used  in  the 
spreading  models  to  compute  the  spreading  rate.  The  positions  of  the  lead¬ 
ing  and  trailing  edges  of  the  slick  are  computed,  however,  from  the  currents 
appropriate  to  their  positions  whenever  the  current  is  a  function  of  posi¬ 
tion.  The  method  used  is  similar  to  that  described  previously  for  tidal 
currents  in  a  river  or  channel.  This  can  lead  to  some  discrepancies  between 

the  area  of  the  slick,  the  width  of  the  slick,  and  the  positions  of  the 

leading  and  trailing  edges,  but  the  computation  described  is  the  best  that 
is  possible  unless  a  much  more  complicated  spreading  model  is  used. 

The  dynamics  of  the  spreading  are  computed  as  a  function  of  time 

until  the  leading  edge  of  the  thick  slick  arrives  at  a  boundary.  After  a 

continuous  discharge  has  ceased,  the  subsequent  motion  of  the  slick  is 
treated  similarly  to  that  from  an  instantaneous  spill. 
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I II . 6  Effects  of  Spill  Parameters  on  Model  Predictions 


111. 6.1  Discussion 

The  spreading,  evaporation,  dissolution,  and  movement  models  contain 
a  large  number  of  parameters.  In  order  to  demonstrate  the  use  of  the  models 
and  the  importance  of  various  parameters,  the  effects  of  four  of  the  more 
important  parameters  are  investigated:  volume  of  chemical  released  or  dis¬ 
charge  rate;  chemical  density;  current;  and  wind  speed.  These  parameters 
are  varied  about  a  "standard"  set  of  parameters  for  a  spill  in  a  large  water 
body.  The  standard  chemical  is  chosen  to  have  the  same  properties  as  octane, 
with  the  exception  of  density.  Octane  is  nearly  insoluble  (its  maximum  solu¬ 
bility  is  0.02  kg/m3),  so  the  effects  of  the  parameter  variations  on  dissolu¬ 
tion  are  small  in  comparison  to  their  effects  cn  evaporation;  this  behavior  is, 
however,  typical  of  most  of  the  chemicals  of  interest  to  the  USCG. 

1 1 1 . 6 . 2  Instantaneous  Spills 

An  instantaneous  spill  is  assumed  to  occur  in  a  large  body  of  water 
having  3  depth  of  100  meters  and  a  current  of  0.51  m/sec.  The  wind  speed 

is  3  m/sec  oriented  at  19.7°  with  respect  to  the  current.  The  chemical  has 
a  standard  density  of  800  kg/m3,  a  vapor  pressure  of  13.92  millibars,  and  a 
spreading  coefficient  of  3.42  x  10~3  Newton/meter.  The  standard  volume  of 
chemical  spilled  is  60m3. 

Figure  III.  6  shows  the  variation  with  time  of  the  area  and  the  thick¬ 
ness  of  the  slick  as  a  function  of  the  spilled  volume.  In  all  cases,  the 
area  increases  rapidly  at  first  when  the  spill  is  relatively  thick,  followed 
by  a  longer  period  when  the  spreading  rate  is  much  slower.  (The  gravity- 
inertial  phase  lasts  about  two  minutes,  at  which  time  the  standard  area  is 
about  1  x  10^  m2.  Most  of  the  spreading  therefore  occurs  in  the  gravity- 
viscous  phase,  in  accordance  with  the  assumptions  used  in  developing  the 
models.)  The  rate  of  spreading  throughout  clearly  depends  on  the  spilled 
volume.  In  the  absence  of  evaporation,  the  areas  at  any  time  should  be  in 
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the  ratio  of  the  spill  volumes  to  the  two-thirds  power,  as  shown  by  Equation 
(III. 10).  In  fact,  the  curves  show  that  this  ratio  holds  approximately 
during  the  time  when  the  spill  area  increases  even  when  evaporation  occurs. 
The  slick  areas  eventually  decrease  as  a  result  of  evaporation;  more  will  be 
said  about  this  effect  below.  The  slick  thicknesses  decrease  uniformly, 
although  even  after  two  hours  the  thicknesses  are  still  well  above  the  cut¬ 
off  value  of  1  x  10"^  meter. 

figure  III. 7  shows  the  effects  of  varying  the  chemical  density  when 
the  spilled  volume  and  the  other  parameters  are  held  constant.  Again,  the 
variation  is  roughly  in  agreement  with  Equation  (III. 10)  during  the  time 
when  the  areas  are  increasing.  But,  as  shown  by  the  curves  for  p0  =  800 
kg/m3  and  p0  =  900  kg/m3,  and  even  more  significantly  for  the  unrealistic 
case  of  pQ  =  100  kg/m3.  Equation  (III. 10)  is  not  capable  of  predicting 
the  correct  trend  when  evaporation  becomes  dominant.  The  less-dense  chem¬ 
icals  spread  more  rapidly  initially  and  thus  experience  a  higher  rate  of 
evaporation;  thus,  the  higher  evaporative  losses  for  them  cause  the  rate 
of  spreading  to  slow  earlier. 

The  effects  of  wind  speed  are  shown  in  Figure  III. 8.  Since  higher 
wind  speeds  increase  the  rate  of  evaporation,  the  trend  of  these  curves  is 
similar  to  that  shown  in  Figure  III. 7  for  density  variations.  The  curves 
for  the  extreme  wind  speed  of  30  m/sec  show  the  trend  most  clearly.  (The 
range  of  wind  speeds  for  which  the  models  are  expected  to  be  applicable  will 
be  discussed  later. ) 

The  effects  of  varying  the  current  over  a  factor  of  one-hundred  (i.e., 
from  0.051  m/sec  to  5.1  m/sec)  give  a  trend  similar  to  the  wind  speed  varia¬ 
tion,  but  the  magnitudes  of  the  area  and  thickness  changes  are  much  less  and 
therefore  are  not  shown  here.  It  is  concluded  that  the  current  has  only  an 
indirect  effect  on  evaporation.  Of  course,  the  movement  of  the  slick  is 
directly  related  to  the  current. 

Figures  III. 6,  III. 7,  and  III. 8  all  showed  that  the  rate  cf  spread¬ 
ing  eventually  became  negative  as  a  result  of  evaporative  losses.  Such  be¬ 
havior  is  probably  physically  incorrect,  because  as  long  as  the  slick  is 
thicker  than  the  cutoff  value  (lx  10'^  meters),  it  should  continue  to  spread 
in  the  gravi ty- viscous  phase  allhough  at  a  rote  slowed  by  evaporation.  This 
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lack  of  physical  reality  in  the  late-time  predictions  is  caused  by  the  use  of 
a  "lumped"  mass  model  rather  than  a  differential  model.  For  example,  the 
dA/dt  expression  given  in  Table  III. 3  is  based  upon  a  constant  thickness  h 
for  the  entire  slick.  In  reality,  h  is  greater  near  the  center  and  approaches 
the  minimum  value  (1  x  10'^  meters)  near  the  edges.  Incorporating  the  varia¬ 
tion  of  h  in  the  model  would  tend  to  increase  the  positive  terms  in  the 
expression  for  dA/dt  and  decrease  the  negative  effect  of  the  loss  term 
2  m-|oss/3  pQh.  More  importantly,  the  loss  term  itself  was  derived  from  the 
assumption  that  evaporation  and  dissolution  effectively  act  as  a  lumped 
"sink"  just  as  the  spilled  mass  acts  as  a  lumped  "source"  at  the  center  of 
the  spill.  In  reality,  the  losses  are  distributed  over  the  entire  surface 
of  the  slick,  i.e.,  as  a  distributed  sink.  Although  the  difference  in  the 


models  is  negligible  as  long  as  dA/dt  >  0,  the  distributed  model  would 
never  predict  that  dA/dt  <  0.  Instead,  the  rate  of  decrease  of  h  would 
be  accelerated  late  in  the  spreading.  A  differential,  or  distributed  model 
would  be,  of  course,  much  more  complicated  mathematically,  j  Since  the  lumped 
model  gives  realistic  results  over  most  of  the  spill  duration  (except  for 

extreme  cases  such  as  p0  =  100  kg/m3),  the  effort  involved  in  developing 

I 

a  differential  model  is  not  believed  to  be  warranted. 


III. 6. 3  Continuous 


The  standard  continuous  spill  has  a  discharge  rate  of  0.0333  m3/sec 
over  a  total  duration  of  thirty  minutes.  The  total  volume  of  the  spill  is 
thus  60  m3,  the  same  as  for  the  standard  instantaneous  spill'.  The  other 
parameters  of  the  spill  are  the  same  as  those  of  the  instantaneous  spills. 


Figure  III.  9  shows  the  effects  of  changing  the  discharge  rate. 

(The  three  rates  give  total  spill  volumes  equal  to  100,  60,  and  10  m3,  the 
same  as  for  the  instantaneous  spills.)  The  quantities  displayed  in  the 
plots  are  the  downstream  width  of  the  triangularly-shaped  slick  and  the 
slick  thickness.  (The  spill  area  can  be  computed  by  multiplying  hair  the 
width  by  the  spill  length,  which  is  equal  to  the  product  of  the  net  trans¬ 
port  velocity  Uy  and  the  elapsed  time;  as  discussed  in  Section  III. 6, 

UT  is  f(Uc  .+  0.03b  Vw  cos  U\'  ♦  (0.03b  Vw  bin  O)5,  J*5. )  At  thr-  ,.{,d  ,J 
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thirty  minutes,  the  areas  of  the  continuous  spills  are  about  twice  those 
of  the  corresponding  instantaneous  spills,  and  the  thicknesses  about  one- 
half.  The  variation  with  respect  to  discharge  rate  from  curve-to-curve 
is  roughly  in  agreement  with  Equation  (III. 16). 

The  variation  of  the  spill  width  and  thickness  with  chemical  density 
is  shown  in  Figure  III. 10-  Two  values  of  density  around  800  kg/m3  are  shown, 
as  well  as  the  extreme  case  of  p0  =  100  kg/m3.  It  can  be  seen  that  for 
p0  *  100  kg/m3  the  width  and  area  increase  so  rapidly  initially  ..that  evapo¬ 
rative  losses  cause  the  width  to  decrease  (but  not  the  total  area)  after 
about  ten  minutes.  The  negative  rate  of  change  of  the  width  is  physically 
unrealistic,  for  the  same  reasons  as  discussed  previously  in  Section  III. 6. 2. 

Figure  III. 11  shows  the  effects  of  current.  Since  the  length  of  the 
slick  increases  when  the  current  increases,  the  current  has  a  significant 
effect  on  the  width  and  the  area  of  the  slick  formed  by  a  continuous  spill, 
in  contrast  to  its  negligible  effect  on  an  instantaneous  spill.  The  de¬ 
crease  in  the  width  is  considerably  less,  however,  than  the  increase  in  the 
length,  so  the  net  effect  is  that  the  slick  area  is  increased  when  the 
current  is  increased. 

Figure  III. 12  displays  the  effects  of  wind  speed  on  the  spill  width 
and  thickness.  Most  of  the  changes  in  the  width  and  thickness  are  due  to 
the  changes  in  the  evaporative  losses,  although  there  is  also  an  effect  of 
the  wind  speed  on  Uj  and  thus  an  indirect  effect  similar  to  that  shown 
previously  for  a  variation  in  current. 

1 1 1 . 7  Mind  and  Current  limitations  on  Models 

According  to  Wu  [25],  a  water  surface  will  form  breaking  waves  and 
spray  for  wind  speeds  above  about  15  m/sec.  Since  the  slick  will  also  begin 
to  disintegrate,  this  value  represents  the  limit  on  wind  speeds  for  which  the 
models  are  expected  to  give  reliable  predictions. 

The  models  should  be  applicable  for  all  normal  values  of  current  ex¬ 
perienced  in  practice. 
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IV.  EXPERIMENTAL  OESIGN  AND  DATA  COLLECTION 


I V . 1  Ex peri mental  Design 

The  purpose  of  the  experimental  design  was  to  develop  a  test  plan 
for  experiments  that  would  provide  validation  data  for  the  revised  models, 
of  both  instantaneous  and  continuous  spills.  The  process  involved  several 
elements: 

o  test  program  objectives 
o  model  sensitivity  analysis,  and 
o  test  plan. 

The  work  carried  out  in  each  of  these  elements  is  described  in  the  following 
sections. 

I V . 1 . 1  Test  Program  Objectives 

Objectives  for  the  test  program  were  formulated  in  two  main  cate¬ 
gories: 


o  spreading,  and 
o  evaporation  and  dissolution. 

This  breakdown  of  the  test  program  was  the  result  of  the  perceived  impract.ii- 
cality  of  simultaneously  obtaining  spreading  rate  data  and  detailed  mass- 
transfer  data  from  large-scale  spill  tests.  Consequently,  spill  tests  were 
designed  to  obtain  data  for  validating  the  spreading  models,  and  separate 
non-spreading  tests  were  designed  to  obtain  data  for  validating  the  evapora¬ 
tion  and  dissolution  models.  A  small  number  of  spill  tests  were  also  de¬ 
signed  to  determine  any  effects  of  evaporation  on  spreading,  do  tests  were 
conducted  specifically  to  validate  the  slick  motion  model;  that  model,  i.e.. 
Equation  (HI. 3D),  has  been  adequately  verified  by  other  tests  in  the  past 
[7,8, 9]. 

Spreading  Tests.  The  objective  of  these  tests  was  to  conduct  a  set 
of  spills,  on  as  large  a  scale  as  was  practical,  from  whi»h  spreading  rates 
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and  slick  sizes  could  be  determined.  The  tests  were  designed  to  systemat¬ 
ically  vary  the  influence  of: 

o  quantity  spilled  (instantaneous  spills) 
o  discharge  rate  (continuous  spills) 
o  chemical  specific  gravity 

o  chemical  spreading  coefficient 

o  magnitude  of  current  (continuous  spills). 

The  size  and  shape  of  the  slick  were  to  be  determined  as  functions  of  time 
primarily  by  the  use  of  flow  visualization.  To  achieve  these  objectives, 
a  large  outdoor  basin  was  constructed  to  study  instantaneous  and. continuous 
spills  in  water  without  a  current,  and  a  large  flow  channel  was  modified  to 
study  continuous  spills  in  a  current.  Some  tests  using  the  outdoor  basin 
were  designed  to  study  combined  evaporation  and  spreading.  For  these  tests, 
chemicals  having  a  range  of  vapor  pressures  were  tested. 

Evaporation  and  Dissolution  Tests.  The  evaporation  and  dissolution 
tests  were  designed  to  vary,  in  a  controlled  environment,  the  influences 
of: 

o  chemical  thermophysical  properties, 
o  wind  speed,  and 

o  wave  height. 

In  order  to  make  the  detailed  measurements  needed  to  validate  the  mass- 
transfer  models,  it  was  necessary  to  insure  that  the  floating  chemical  slick 
remained  stationary. 

Thus,  to  achieve  the  test  objectives,  an  environmental  wind  tunnel 
was  constructed  in  which  an  open  pan  of  chem’ral  could  be  exposed  to  various 
wind  speeds.  Tests  in  which  the  chemical  could  be  subjected  to  both  wind 
and  waves  were  designed  for  a  large  wind-wave  tunnel  at  flow  Research,  Inc., 
in  Kent,  Washington.  Mass- transfer  rates  were  to  be  determined  primarily 
through  concentration  sampling  of  the  air  and  the  water. 


I V . I . 2  Sensitivity 1  Analysis 

An  analysis  was  performed  on  the  revised  spreading,  evaporation,  and 
dissolution  models  in  order  to  determine  the  sensitivity  of  the  predicted 
spreading  rates  and  mass  losses  to  changes  in  the  values  of  the  model  param¬ 
eters.  Such  an  analysis  is  useful  in  determining  which  parameters  have  the 
greatest  influence  on  the  predicted  results  and  therefore  need  to  be  con¬ 
trolled  and  measured  during  experiments.  It  also  reveals  the  parameters 
that  have  little  influence  on  the  predictions  and  can  therefore  be  omitted 
from  the  test  specifications. 

For  each  spreading  model,  the  change  in  the  slick  diameter  at  a  spe¬ 
cified  time  after  the  spill  had  occurred  (generally,  fifteen  minutes) ,  and 
the  time  required  to  evaporate  the  entire  slick,  was  computed  for  a  +10% 
change  in  the  value  of  each  parameter  about  a  selected  baseline  condition. 

The  sensitivity  coefficient  for  each  parameter  was  then  computed,  using  the 
slick  area  as  an  example,  by  the  equation: 

SCX  =  (AA/A0)/ (ax/x0) 

Here  AA  is  the  computed  change  in  area  from  A0  for  a  AX  change  in  the 
parameter  X0.  When  SCX  is  positive,  A  increases  as  X  increases;  the 
opposite  holds  when  SCX  is  negative.  The  magnitude  of  SCX  indicates  the 
sensitivity  of  A  to  X;  if  |SCX|  =  1.0,  the  percentage  change  in  A  is 
the  same  as  the  percentage  change  in  X;  values  of  |SCX|  greater  or  less 
than  one  indicate  a  greater  or  lesser  sensitivity  to  a  change  in  X. 

Table  IV.  1  gives  the  results  for  an  instantaneous  spill  of  90  rrH  of 
benzene  on  an  unbounded  lake.  (This  sensitivity  analysis  had  to  be  conducted 
before  data  from  the  tests  were  available  to  establish  the  empirical  constants. 
Therefore,  the  absolute  maqni tudes  of  slick  radius  and  evaporation  time  pre¬ 
sented  in  the  table  may  be  in  error  in  places,  but  the  trends  of  the  sensi¬ 
tivity  roeff irients ,  since  they  are  computed  as  ratios,  are  generally  correct.) 
from  the  table,  the  relative  importance  of  the  independent  parameters  is  evi¬ 
dent.  Tor  the  slick  size,  for  example,  the  chemical  density  and  the  spill 
volume  are  the  dominant  parameters.  For  evaporation,  the  order  of  relative 
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TABLE  IV. 1  SENSITIVITY  ANALYSIS  FOR  A  90  m3  INSTANTANEOUS  SPILL  OF  BENZENE 
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importance  of  parameters  is  density,  vapor  pressure,  wind  speed,  diffusivity 
in  air,  wave  height,  spill  volume,  and  current.  Similar  results  were  obtain¬ 
ed  for  continuous  spills.  The  effects  previously  shown  in  Figures  III.  6  to 
III.  12  display  the  same  trends  graphically.  The  sensitivity  analysis:  results 
were  used  in  formulating  the  test  plans. 

IV. 1.3  Test  Plan 

Spill  Tests  -  As  mentioned  earlier,  instantaneous  and  continuous 
spill  tests  were  planned  for  a  large  outdoor  basin,  and  continuous  spill 
tests  in  a  current  were  planned  for  a  large  channel.  The  final  test  plan 
is  shown  in  Tables  IV. 2  through  IV. 6.  Altogether,  102  spreading  tests 
were  planned  and  conducted.  (Some  preliminary  tests  that  were  conducted, 
to  help  establish  feasible  limits  on  spill  sizes,  discharge  rates,  and! 
chemical  properties  are  not  included  in  the  plan.) 

No  tests  were  conducted  using  volatile  chemicals  in  a  current  be¬ 
cause  of  the  hazardous  vapors  that  would  have  been  liberated  indoors. 

Evaporation  and  Dissolution  Tests  -  Two  series  of  tests  for  evapora¬ 
tion  and  dissolution  were  planned  for  the  experimental  program.  The  first 
group  of  tests  was  to  be  conducted  in  a  wind  tunnel  at  SwRI  with  a  test 
section  designed  for  these  experiments.  The  primary  objective  was  lu 
measure  transfer  rates  on  a  variety  of  chemicals  over  a  range  of  wind 
velocities.  The  chemicals  were  selected  to  cover  a  range  of  physical  pro¬ 
perties  important  to  evaporation  and  dissolution:  Schmidt  number,  vapor 
pressure,  and  solubility.  In  addition,  a  range  of  interfacial  tensions 
was  also  included  since  this  property  is  likely  to  be  important  in  con¬ 
trolling  droplet  dispersion  in  water.  The  chemicals  were  also  selected 
to  minimize  health  and  safety  hazards.  A  secondary  objective  for  these 
experiments  was  to  perfect  experimental  techniques  for  the  second  group 
of  tests. 

A  second  group  ol  tests  was  planned  for  a  wind-wave  channel  at 
I  low  Research,  Inc.,  at  Kent,  Washington.  The  purpose  of  these  tests  was 
to  measure  mass  transfer  tales  for  Iwo  chemicals  exposed  to  controlled 


59 


TABLE  IV. 2  SUMMARY  OF  TEST  CONDITIONS  FOR  SPREADING  TEST  SERIES  I 
NON-VOLAJiLE  INSTANTANEOUS  SPILLS  IN  BASIN 


Run 

Number 

Chemical 

Specific 

Gravity 

Spreading 
Coefficient 
(dyne/ cm) 

Spill 

Volume 

(liters) 

!  i. l-i 

Octane 

0.703 

0.3 

5 

i  1.1-2 

10 

,  1.1-3 

20 

|  1.1-4 

40 

1.2-1 

Kerosene 

C.795 

-2.7 

5 

1.2-2 

10 

|  1.2-3 

20 

;  i  .2-4 

i 

40 

|  1.3-1 

n-Hexanol 

0.819 

39.75 

5 

;  1.3-2 

10 

;  1.3-3 

20 

1.3-4 

1 

40 

1.4-1 

Naphtha 

0.785 

7.8 

5 

1.4-2 

! 

10 

1.4-3 

1 

20 

1.4-4 

40 

1.5-1 

m-Xylene 

0.864 

7.0 

5 

1.5-2 

1 

10 

1.5-3 

20 

1.5-4 

. . ! 

i 

1 

i 

1 

40 
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TABLE  IV. 3  -SUMMARY  OF  TEST  CONDITIONS  FOR  SPREADING  TEST  SERIES  II 
NON-VOLATILE  CONTINUOUS  SPILLS  IN  BASIN 


Run 

Number 

Chemical 

Specific 
Gravi ty 

Spreading 

Coefficient 

(dyne/cm) 

Di scharge 
Rate 

(1  iters/sec) 

II. 1-1 

Octane 

0.703 

0.3 

0.50 

II. 1-2 

0.82 

II. 1-3 

1.01 

II. 1-3 

1.26 

II. 2-1 

Kerosene 

0.795 

-2.7 

0.50 

II. 2-2 

0.82 

II. 2-3 

1.01 

II. 2-4 

1.26 

II. 3-1 

n-Hexanol 

0.819 

39.75 

0.50 

II. 3-2 

1  0.82 

II. 3-3 

1 

} 

1.01 

II. 3-4 

1.26 

II. 4-1 

Naphtha 

0.785 

7.8 

0.50 

1 1. 4-2. 

0.63 

II. 4-3 

0.95 

1 1. 4-4 

1.10 

II. 5-1 

m-Xyl ene 

0.864 

7.0 

0.50 

II. 5-2 

0.82 

1 1. 5-3 

1.01 

I I. 5-4 

1.26 
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TABLE  IV. 4  SUMMARY  OF  TEST  CONDITIONS  FOR  SPREADING  TEST  SERIES  III 
VOLATILE  INSTANTANEOUS  SPILLS  IN  BASIN 


Run 

Number 

Chemical 

Specific 

Gravity 

Spreading 

Coefficient 

(dyne/cm) 

Vapor 
Pressure 
(mill ibars) 

Spi  1 1 
Volume 
(liters) 

III. 1-1 

n-Pentane 

0.626 

6.5 

587.7 

5 

III. 1-2 

10 

III. 1-3 

20 

III. 1-4 

40 

III. 2-1 

Heptane 

0.684 

1.6 

47.7 

4 

III. 2-2 

III. 2-3 

20 

III. 2-4 

40 

III. 3-1 

Octane 

0.703 

0.3 

13.9 

5. 

III. 3-2 

10 

III. 3-3 

1 

20 

III. 3-4 

40 

III. 4-1 

m-Xylene 

0.864 

7.0 

8.2 

5 

III. 4-2 

■■ 

III. 4-3 

20 

I I I. 4-4 

40 

III. 5-1 

Ethyl 

45.89 

98.4 

5 

Acetate 

III. 5-2 

III. 5-3 

III. 5-4 

40 

6? 
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TABLE  IV. 5  SUMMARY  OF  TEST  CONDITIONS  FOR  SPREADING  TEST  SERIES  IV 
VOLATILE  CONTINUOUS  SPILLS  IN  BASIN 


Run 

Number 

Chemical 

Specific 

Gravity 

Spreading 

Coefficient 

(dyne/cm) 

Discharge 

Rate 

(liters/sec) 

IV. 1-7 

n-Pentane 

0.626 

6.5 

0.50 

IV. 7-2 

0.82 

IV. 1-3 

1.01 

IV. 1-4 

1.26 

IV. 2-1 

Heptane 

0.684 

1.6 

0.50 

IV. 2-2 

0.32 

IV. 2-3 

1.01 

IV. 2-4 

1.26 

IV. 3-1 

Octane 

0.703 

0.3 

0.50 

IV. 3-2 

• 

0.32 

IV. 3-3 

1.01 

IV. 3-4 

■ 

1.26 

IV. 4-1 

m-Xylene 

0.864 

7.0 

0.50 

IV. 4-2 

0.82 

IV. 4-3 

1.01 

IV. 4-4 

1.26 

IV. 5-1 

Ethyl 

0.901 

45.89 

0.50 

Acetate 

IV. 5-2 

0.82 

IV. 5-3 

1.01 

IV. 5-4 

1.26 

f>  I 


TABLE  IV. 6  SUMMARY  OF  TEST  CONDITIONS  FOR  SPREADING  TEST  SERIES  V 

FLOW  CHANNEL  TESTS 


Run 

Number 


V.l-1 
V.  1-2 
V.  1-3 
V.l-4 

V.2-1 

V.2-2 

V.2-3 

V.2-4 

V.3-1 
V.3-2 
V.3-3 
V .  3-4 

V  .4-1 
V .  4-2 
V.4-3 
V.4-4 

V.  5-1 
V.5-2 
V .  5-3 

V  5-4 


Chemical 

(Sp.Gravi ty) 

Spreading 

Coefficient 

(dyne/cm) 

Discharge 

Rate 

(liters/sec) 

Current 

m/sec 

Octane 

0.3 

0 

.038 

0 

.134 

(0.703) 

0 

.050 

0 

.189 

0 

.100 

0 

.241 

0 

.149 

0 

.290 

Kerosene 

-2.7 

0 

038 

0 

134 

(0.795) 

0 

050 

0 

189 

0 

100 

0 

241 

0 

149 

0 

290 

n-Hexanol 

39.75 

0 

038 

0 

134 

(0.819) 

0 

050 

0 

189 

0 

100 

0 

241 

0 

149 

0 

290 

Naphtha 

(0.785) 

7.8 

0 

025 

0. 

119 

0 

050 

0. 

189 

0. 

100 

0. 

241 

0 

100 

0. 

290 

m-Xyl ene 

7.0 

0. 

038 

0. 

134 

(0.864) 

0. 

050 

0. 

189 

0. 

100 

0. 

241 

0. 

149 

0. 

290 
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wind  and  wave  conditions  that  simulate  the  spill  environment.  The  primary 
variables  for  these  experiments  were  Reynolds  number  and  wave  roughness. 


The  test  plan  is  summarized  in  Tables  IV. 7  through  IV. 10.  Some  minor 
alterations  occurred  in  the  test  plan  during  the  course  of  the  experiments. 
The  test  chemicals  for  the  wind-wave  experiments  were  selected  on  the  basis 
of  test  experience  gained  at  SwRl  during  the  first  group  of  tests.  In 
addition,  some  wave  measurements  for  water  only  were  taken  for  comparison 
to  waves  with  a  chemical  slick. 

IV. 2  Test  Facilities,  Procedures,  and  Instrumentation 


IV. 2.1  Basin  Tests:  Spreading  and  evaporation 

Environmental  Spill  Facility.  The  concrete  basin  pictured  in  Figure 
IV. 1,  used  for  conducting  the  continuous  and  "instantaneous"  spreading  ex¬ 
periments  was  a  18.3m  (60  ft)  x  18.3m  (60  ft)  x  0.3m  (1  ft)  deep  square  pool 
located  at  SwRI.  The  basin  was  filled  with  fresh  water  through  a  17.8  cm 
(7  inch)  diameter  water  inlet  in  the  middle  of  the  basin.  The  basin  was 
filled  to  a  depth  of  0.3m  (1  ft)  for  each  test.  The  basin  could  be  emptied 
through  a  15.2  cm  (6  inch)  diameter  drain  that  was  located  at  its  center. 

For  the  purpose  of  data  collection,  a  rake  assembly  to  measure  spill 
diameters  was  constructed  in  the  spill  facility  as  shown  in  Figure  IV. 1. 
There  were  four  rakes  that  spanned  the  basin  along  its  diagonals.  The  rakes 
were  numbered  1,  2,  3,  and  4.  Rake  1  is  located  in  the  upper  lefthand 

corner  of  Figure  IV. 1.  The  remaining  rakes  were  sequentially  numbered  in 

a  clockwise  direction.  Each  rake  consisted  of  a  3.0  cm  (1.5  inch)  by 

7.6  cm  (3.0  inch)  piece  of  wooc j  that  was  secured  to  the  bottom  of  the  basin 

on  which  wooden  pegs  were  mounted  that  extended  through  the  water  surface. 
The  diameter  of  each  peg  was  0.64  cm  (0.25  in).  The  center-most  peg  on 
each  rake  was  located  0.6m  (2  ft)  from  the  center  of  the  basin.  The  next 
ten  pegs  were  at  0.3m  (1  ft)  intervals  and  the  next  5  were  at  0.6m  (?  ft) 
intervals. 
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TABLE  IV. 7  SUMMARY  OF  TEST  CONDITIONS  FOR 
EVAPORATION  TEST  SERIES  VI, 

WIND  TUNNEL  TESTS 


TABLE  IV. 8  SUMMARY  OF  TEST  CONDITIONS  FOR 
EVAPORATION  TEST  SERIES  VII 
WIND-WAVE  CHANNEL  TESTS 


Run 

Number 

Chemical 

IKE  ELiSi 

Hi  fn 

Mechanical 

Waves 

VII. 1.1 

Octane(n) 

2.60 

13.9 

2 

No 

VII. 1.2 

ll 

ll 

II 

3.5 

No 

VII. 1.3 

i« 

II 

if 

5 

No 

VII. 1.4 

" 

II 

II 

7.5 

No 

VII. 1.5 

Hexanol (n) 

2.18 

0.72 

7.5 

No 

VII. 2.1 

Octane(n) 

2.60 

13.9 

3.5 

Yes 

VII. 2. 2 

ll 

i« 

ii 

5 

Yes 

VII. 2. 3 

it 

M 

it 

7.5 

Yes 

6 


TABLE  IV.  9  SUMMARY  OF  TEST  CONDITIONS  FOR 
DISSOLUTION  TEST  SERIES  VIII 
WIND  TUNNEL  TESTS 


Run 

Number 

Chemical 

Schmidt 

Number 

Solubi 1 i ty 

,(PP" 1 .  . 

Wind 

Speed 

(m/s) 

VIII. 1.1 

Ethyl  Acetate 

1120 

87,000 

2 

VIII. 2.1 

Uexane(n) 

1310 

12.5 

2 

VIII.  3.1 

Octane(n) 

1570 

0.66 

2 

VIII. 4.1 

Hexanol (n) 

1340 

6,000 

2 

VIII. 1.2 

Ethyl  Acetate 

1120 

5 

VIII. 2. 2 

Hexane(n) 

1310 

12.5 

5 

VIII. 3. 3 

Octane(n) 

1570 

C.66 

5 

VIII. 4. 2 

Hexanol (n) 

1340 

6,000 

5 

TABLE  IV. 10  SUMMARY  OF  TEST  CONDITIONS  FOR 
DISSOLUTION  TEST  SERIES  IX 
WINO-WAVE  CHANNEL  TESTS 


Run 

Number 

Chemical 

Schmidt 

Number 

Solubi 1 i ty 

(Pi^) 

Wind 

Speed 

(m/s) 

Mechanical 

Waves 

IX. 1.1 

Octane(n) 

1570 

0.66 

2 

No 

IX. 1.2 

5 

Yes 

IX. 1 .3 

7.5 

Yes 

IX. 2. 3 

Hexanol (n) 

. 

1340 

6,000 

7.5 

Yes 

M 
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Test_Apparatus ,  Procedures  and  Ins  trpmentation  -  Continuous  SpilJ 

Experiments .  For  the  continuous  spill  experiments  a  platform  was 
built  and  placed  in  the  center  of  the  basin.  Each  platform  leg  was  placed 
so  that  it  bisected  the  angle  formed  by  the  rakes  to  minimize  any  distur¬ 
bance  in  the  area  along  the  rakes. 

The  platform  supported  a  holding  tank,  pump,  a  :  .roboscope,  and  the 
discharge  tube.  Each  tested  chemical  was  mixed  with  Red  B.  Automate*  Liquid 
Dye  in  the  holding  tank  and  held  until  the  test  began.  To  conduct  a  test, 
the  pump  was  set  at  the  speed  pre-selected  from  the  pump  calibration  curve 
to  give  the  desired  discharge  rate.  The  valve  to  the  holding  tank  was  then 
opened.  The  rotational  rate  of  the  r"mp  was  determined  by  a  stroboscope.  . 
The  discharge  rates  were  0.5  i/s  (8  gpm),  0.82  i/s  (13  gpm),  1.01  l/s 

(16  gpm),  and  1.26  l/s  (20  gpm).  The  chemical  was  discharged  through 

7.62  cm  (3  inch)  diameter  PVC  pipe  that  ran  along  the  platform,  down  a 
leg,  along  the  basin  bottom,  then  straight  up  at  the  center  of  the  basin. 

The  pipe  extended  ouc  of  the  water  6.4  mm  (0.25  inch).  The  chemical  was 
discharged  vertically  with  negligible  vertical  momentum. 

During  discharge  of  the  chemical  and  dye  mixture,  the  test  data  were 
recorded  on  a  strip  chart  using  a  Honeywell  Visicorder.  A  common  voltage 
supply  was  utilized  with  four  triggers  that  fed  into  four  separate  channels 
on  the  Visicorder.  When  the  edge  of  the  spill  arrived  at  each  peg  on  one 
of  the  rakes,  the  trigger  for  that  rake  was  pushed.  The  events  for  each 
rake  were  marked  on  the  strip  chart  recorder's  light  sensitive  paper. 

The  event  times  for  each  rake  were  tabulated  and  used  as  input  to 
obtain  curves  of  slick  radius  vs.  time.  Then,  the  radius  values  of  oppo¬ 
site  rakes  (1  and  3,  2  and  4)  were  added  to  obtain  two  graphs  of  diameter 

vs.  time.  The  granh  of  the  diameter  least  affected  by  any  wind  was  used 
for  comparison  with  the  computer  model  predictions. 


it 

Red  B.  Automate  Liquid  Dye,  Morten  Chemical  Co. 
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Tes t_ Appa ra tus,  Procedures,  and  Instrumentation  -  Instantaneous 

Spi 1 1  Experiments.  The  same  four- legged  platform  used  for  the  con¬ 
tinuous  spill  experiments  was  also  used  for  these  instantaneous  spill  ex¬ 
periments  with  some  minor  modifications.  Replacing  the  holding  tank,  pump, 
stroboscope,  and  discharge  tube  was  a  system  to  approximate  an  "instan¬ 
taneous"  spill.  This  instantaneous  spill  apparatus  consisted  of  an  open 
tank  without  a  bottom  that  was  attached  to  the  rod  of  a  pneumatic  cylinder 
as  shown  in  Figure  IV. 2.  The  pneumatic  cylinder  was  set  so  that  in  its 
fully  extended  position  the  spill  tank  was  just  off  the  basin  bottom. 

While  the  cylinder  was  in  its  lowest  position,  the  chemioal/dye  mixture  was 
metered  into  the  spill  tank  from  the  open  top.  Care  was  taken  not  to  allow 
any  chemical  to  be  discharged  at  the  bottom  of  the  open  spill  tank.  This 
procedure  was  possible  because  all  of  the  chemicals  studied  were  lighter 
than  water  and  relatively  immiscible  and  insoluble.  To  spill  the  chemical, 
a. remote  valve  was  used  to  activate  the  pneumatic  cylinder  and  raise  the 
spill  tank  in  less  than  one  second;  as  the  tank  was  raised,  the  chemical 
was  automatical ly  released  into  the  water  without  any  significant  momentum. 

The  procedures  for  data  collection  and  reduction  were  the  same  as 
described  above  for  the  continuous  spill  experiments. 

I V . 2 . 2  Channel  Sp  r  ea  d i ng  T  e s  t s 

Flow  Channel  Facility.  The  flow  channel  used  for  the  experiments 
of  a  continuous  spill  in  a  current  is  a  13.7m  (45  ft)  long,  2.4m  (8  ft 
wide),  and  1.5m  (5  ft)  deep  channel  with  a  1.5m  (5  ft)  long,  3m  (10  ft) 
deep  sump  at  one  end,  located  at  SwRI.  Water  flow  was  achieved  by  pump¬ 
ing  water  from  the  sump  area  through  a  20  cm  (8  inch)  diameter  PVC  pipe 
to  the  head  of  the  channel.  The  water  channel  inlet  area  was  constructed 
using  a  combination  of  a  diffuser,  weirs,  fire  bricks,  screens,  and  rubber¬ 
ized  hogs  hair  (shown  in  Figure  IV. 3)  to  yield  a  uniform  flow  field  across 
the  width  of  the  channel.  A  weir  was  constructed  at  the  upstream  edge  of 
the  sump  to  limit  the  water  depth  and  also  isolate  the  sump  from  the  rest 
of  the  flow  channel.  After  allowing  for  the  area  necessary  for  flow 
straightening  and  sump  isolation,  the  test  section  dimensions  vie re  6  7m 
(22  ft)  long  by  2.4m  (8  ft)  wide,  lo  aid  in  the  flow  visual ization  and 
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data  collection,  the  channel  floor  was  striped  as  shown  in  Figure  IV. 4 
using  graphic  slit  tape.  For  the  first  3.05m  (10  ft)  of  the  test  section, 
the  stripes  were  spaced  every  30.5  cm  (1  ft)  downstream  and  15.2  cm  (0.5  ft) 
cross-stream.  For  the  last  3.65m  (12  ft)  of  the  test  section,  the  stripes 
were  spaced  every  61  cm  (2  ft)  downstream  and  30.5  cm  (1  ft)  cross-stream. 

Water  velocities  in  the  channel  from  12.0  cm/sec  (0.39  ft/sec)  to 
29.0  cm/sec  (0.95  ft/sec)  were  obtained  by  the  use  of  an  Aurora  centrifugal 
pump  driven  by  a  hydraulic  motor.  Since  the  weir  at  the  upstream  edge  of 
the  sump  was  permanently  installed,  the  water  depth  varied  from  about 
15  cm  (6  inches)  to  23  cm  (9  inches)  over  the  range  of  flowrates  necessary 
to  achieve  the  water  velocities  mentioned  above.  It  was  determined  that 
this  change  in  depth  had  no  significant  impact  on  the  experiments  because 
only  surface  phenomena  were  of  concern. 

Test  Apparatus,  Procedures  and  Instrumentation.  For  the  continuous 
spill  experiments  in  the  flow  channel,  various  chemicals  were  mixed  with 
“Red  B.  Automate  Liquid  Dye"  and  discharged  from  a  discharge  port  located  at 
the  water  surface  in  the  upstream  center  of  the  channel  width.  The  port 
was  formed  from  either  2  cm  or  5.5  cm  diameter  pipe  configured  to  give  a 
discharge  aligned  with  the  flow  direction.  The  spill  setup  for  these  spills 
is  shown  in  Figure  IV. 5.  The  chemical  and  dye  were  premixed  in  the  pictured 
container  and  then  pumped  to  the  port  at  the  discharge  rates  specified  in 
the  test  plan  using  a  variable  speed  motor  and  a  1/4"  rotary  gear  pump. 

During  discharge  of  the  chemical  and  dye  mixture,  the  tests  were 
filmed  on  video-tape.  The  films  were  then  analyzed  to  determine  the  "thick 
slick"  plume  width  as  a  function  of  distance  from  the  discharge  port.  This 
information  was  graphed  to  yield  a  reproduction  of  the  spreading  of  the 
chemical  on  the  water  surface,  and  thus  to  serve  as  a  basis  for  comparison 
to  the  computer  model  predictions.  Only  data  for  that  part  of  the  spread¬ 
ing  where  the  channel  walls  did  not  affect  the  results  were  analyzed.  Thus, 
these  tests  simulate  the  spreading  of  a  continuous  spill  in  "open  water" 
with  a  current. 


I V . 2 . 3  W i nd_  Tunnel  Tests:  Evapor a t  ion 


Theory.  In  the  past,  mass  transfer  by  evaporation  has  been  measured 
as  the  weight  loss  of  chemical  from  a  pan  in  a  wind  tunnel.  The  work  of 
Pasquill  [43]  is  a  frequently  referenced  example  of  such  experiments,  and 
more  recently  pan  evaporation  experiments  have  been  reported  by  Reijnhart 
and  Rose  [44]  for  pentane  and  toluene.  In  the  present  research,  evaporation 
and  wind  shear  stress  were  determined  bv  measurement  of  the  logarithmic 

I 

profiles. 


Experimentally,  velocity  and  vapor  concentration  were  measured  as  a 

j 

function  of  height  above  the  liquid  surface.  The  relevant  mass  transfer 
constants  were  determined  by  a  linear  regression  of  the  profile  data  in  the 
following  form: 


U  =  a  In  z  +  b 


(IV. 1) 


C  =  ar  «.n  z  =  br 


(IV. 2) 


where  U,  C,  and  z  are  measured  quantities  and  the  a's  and  b's  are 
the  slopes  and  intercepts  from  linear  regression  analysis.  In  non-dimen¬ 
sional  form  these  equations  are: 


u+  =  U/u*  =  A  £n  z+  +  B 
c+  =  C/c*  =  A  Sct  £n  z  +  +  Bc 


(IV. 3) 


(IV. 4) 


where  the  intercepts  are  related  to  the  roughness  parameters  of  Equations 
(III. 25)  and  (III. 26)  by  j 

z0+  =  exp  ( -<B)  |  (IV. 5 


zoc+  =  exp  (-r  Bt:/r.ct) 


The  constants  from  boundary  layer  theory  and  the  linear  regression  anlaysis 


are  related  as  follows: 

for  velocity:  u*  =  a  <  (IV. 7a) 

B  =  [b-Us-a  ?.n  (u*/v)]/u*  (IV. 7b) 

for  concentration:  c*  =  ac  K/Sct  (IV. 8a) 

Bc=  (b  -  Cs)/c*  -  A  Sct  [£n  (u*/v)]  (IV. 8b) 
By  definition  the  friction  velocity  and  concentration  are: 

u*  =  /T^/p  (IV. 9) 

c*  =  JQ/pu*  (IV. 10) 


These  quantities  are  related  to  wind  stress  coefficient  and  Dalton  number 
by 


Cf/2  =  (u*/Vw)2  (IV. 11) 

and 

Da*  =  c*/(Cm-Cs)  (IV. 12) 

where  the  saturation  concentration,  Cs,  is  a  physical  property  calculated 
from  the  barometric  pressure  and  liquid  surface  temperature. 

Wind  Tunnel.  The  wind  tunnel  for  the  pan  evaporation  experiments 
consisted  of  the  following  components: 

a.  bell  mouth  entrance; 

b.  rectangular  test  section  with  dimensions  of  30.5  cm  height, 

51.0  cm  width,  and  484  cm  length  (12  x  24  x  190.5  inches); 

c.  contraction  section; 
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d.  Buffalo  centrifugal  blower  which  is  rated  at  4.7  m3/s  (10,000 
cfm)  and  is  driven  by  a  Dennison  hydraulic  motor; 

e.  20.3  cm  (8  inch)  diameter  PVC  plastic  pipe;  and 

f.  evaporation  pan  with  dimensions  of  3.8  cm  depth,  40.6  cm  width, 
and  121.9  cm  length  (1.5  x  16  x  48  inches)  and  with  a  volume 

of  18.9  liters  (5  gals) . 

Air  for  the  wind  tunnel  was  ingested  at  the  bellmouth  in  the  laboratory  and 
exhausted  by  the  blower  to  the  outside  air.  The  inlet  to  the  blower  was 
connected  to  the  wind  tunnel  via  the  plastic  pipe,  and  the  air  was  trans¬ 
ported  from  the  blower  outlet  to  the  exterior  of  the  laboratory  by  plastic 
pipe.  Figure  IV. 6  shows  the  tunnel  and  instrumentation  for  the  pan  evapora¬ 
tion  experiments. 

This  arrangement  of  the  tunnel  had  three  primary  advantages.  First, 
laboratory  personnel  were  not  exposed  to  the  chemical  vapors,  and  thus,  the 
health  hazard  was  reduced.  Second,  the  concentration  measurements  were 
not  contaminated  from  chemical  vapors  which  would  accumulate  in  the  labo¬ 
ratory  otherwise.  The  tunnel  was  sealed  to  minimize  any  leakage.  Third, 
this  design  provided  an  additional  method  for  the  measurement  of  evaporation. 

Mass  transfer  from  evaporation  was  measured  from  an  air  sample  taken 
from  the  plastic  pipe  downstream  from  the  blower  outlet.  From  the  defini¬ 
tion  of  Dalton  number  and  conservation  of  mass,  the  Dalton  number  measured 
at  the  blower  outlet  is: 


!a0  =  (At/Ap)  (C0/Cs)  (IV. 13) 

where  At  is  the  cross-sectional  area  of  the  test  section,  Ap  is  the 
surface  area  of  the  liquid  in  the  evaporation  pan,  and  C0  is  the  concen¬ 
tration  measured  at  the  blower  outlet.  The  following  assumptions  are  in¬ 
herent  in  Equation  (IV. 13): 

a.  The  flow  was  well  mixed  at  the  sampling  station. 

b.  Any  air  leakage  in  the  wind  tunnel  between  the  sampling 
station  and  pan  was  small. 
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FIGURE  IV. 6  SwRI  WIND  TUNNEL 
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c.  Boundary  layer  displacement  effect  on  the  tunnel  cross- 
sectional  area  was  small;  however,  an  effective  area  could 
have  been  applied. 

The  tunnel  was  constructed  primarily  of  wood;  however,  the  two  sides 
of  the  test  section  at  the  pan  location  were  Plexiglas.  The  pan  was  con¬ 
structed  of  stainless  steel  sheet  metal.  A  manual  gravity  feed  and  drain 
system  was  connected  to  the  pan  which  included  6.4  mm  {0.25  inch)  diameter 
stainless  steel  tubing,  fittings,  ball  valves,  19  liter  (5  gal)  reservoir, 
and  sight  gage.  During  an  experiment  the  liquid  level  in  the  pan  was  main¬ 
tained  manually  to  within  +0.5  mm.  The  liquid  surface  was  typically 
5  mm  below  the  tunnel  floor. 

A  set  of  eight  baffles  was  installed  in  the  pan  below  the  liquid  sur¬ 
face  for  the  prevention  of  surface  waves  on  the  chemicals.  The  baffles  were 
not  necessary  for  water  whose  surface  tension  is  more  than  twice  that  of  the 
chemicals  tested.  A  35  mm  square  horse-hair  filter  was  also  installed  across 
the  width  of  the  pan  at  its  downstream  edge  for  damping  surface  waves.  Figure 
IV. 7  shows  close-up  views  of  the  pan  and  test  section  area  during  a  typical 
experiment. 

Instrumentation.  The  following  is  a  list  of  the  commercial  equip¬ 
ment  for  the  evaporation  experiments. 


a.  TSI  1050  constant  temperature  anemometer. 

b.  OISA  traversing  mechanism  including  a  DISA  52B01  sweep  drive 
unit,  DISA  55E40  tiaversing  unit,  and  stepper  motor. 

c.  TSI  1076  rms  voltmeter. 

d.  MKS  Baratron  model  170  with  a  1  Torr  pressure  transducer. 

e.  TSI  1125  calibrator. 

f.  DISA  55P05  boundary  layer  probe. 

g.  Century  OVA-128  organic  vapor  analyzer. 


The  first  six  items  wore  primarily  for  the  measurement  and  calibration  of 
velocity.  The  organic  vapor  analyzer  (OVA)  and  the  DISA  traversing  system 
were  used  in  the  measurement  of  concentration  profiles. 


// 
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SECTION  AND  LIQUID  PAN 


The  wind  tunnel  speed  was  set  by  dynamic  pressure  measurements  with 
the  MKS  Baratron.  The  velocity  was  calculated  from  Bernoulli's  equation 

Vs :«  [2  (Pa-PiJ/Pa]3*  (IV.  14) 

where  pa  is  the  barometric  pressure  which  in  the  present  case  is  the  same 
as  the  total  pressure,  and  pj  is  the  tunnel  wall  static  pressure  at 
station  i.  Since  the  MKS  has  a  differential  pressure  transducer,  (pa-p-,-) 
was  measured  directly.  Experimentation  indicated  that  velocities  from  this 
method  at  station  3  were  closer  to  the  hot-wire  measurements  than  those 
from  a  Pitot-static  probe.  Table  IV. 11  is  a  list  of  transducer  locations 
and  the  pan  location  relative  to  the  test  section  entrance.  A  scale  drawing 
of  the  test  section  with  static  pressure  hole  and  hot-wire  locations  is 
shown  in  Figure  IV. 8.  Also,  the  nondimensional  pressure  gradient  for  flow 
over  octane  is  presented  in  this  figure  for  the  test  section. 

The  pressure  gradient  is  defined  as: 

(1/q)  (dp/dx)  3  -Cp/Ax  (IV. 15) 

where  the  pressure  coefficient,  Cp  is 

Cp  =  (p1+1  -  Pi)/q  (IV. 16) 

Pi  is  the  pressure  at  station  i,  q  is  the  dynamic  pressure,  pa  Vw2/2, 
and  Ax  =  x^+^  -x^.  The  physical  properties  which  were  not  measured 
directly  such  as  density  and  viscosity  were  computed  by  the  methods  in 
Appendix  A  from  the  measured  temperatures  and  barometric  pressure.  Room 
air  temperature  and  liquid  surface  temperature  were  measured  with  T>pe  T 
thermocouples  while  barometric  pressure  was  imnitored  with  an  aneroid 
barometer  from  Weathermeasure  Corporation.  The  error  in  velocity  from 
errors  in  temperature  and  barometric  pressure  was  less  than  0.5%. 

The  velocity  profiles  were  measured  with  a  TSI  1050  constant  temper¬ 
ature  anemometer  and  DISA  55P05  hot-wire  probe.  The  hot-wire  anemometer 
was  calibrated  with  a  TSI  1125  calibration  jet.  Voltages  from  the 
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TABLE  IV. 11  TRANSDUCER  LOCATIONS 


Station  j 
(cm)  ! 

X 

(in) 

j  I  tom 

1 

274.3 

■ 

108 

1 

No.  1  static  pressure  hole 

302.3 

119 

Inside  leading  edge  of  pan 

336. 3 

132 

No.  2  static  pressure  hole 

396.2 

156 

No.  3  static  pressure  hole 

408.9 

161 

Mot-wire  sensor 

408.9 

161  ! 

Pitot-static  probe  tip 

408.9 

161 

Pan  thermocouple 

411.8 

162.1 

Liquid  sampling  probe  tip 

413.4 

162.8 

Gas  sampling  probe  tip 

415.3 

163.5  j 

DISA  traversing  mechanism  guide  tube 

424.2  | 

i 

167  i 

1 

| 

Inside  trailing  edge  of  pan 

457.2  j 

180  i 

No.  4  static  pressure  hole 

FIGURE  IV. 8  WIND  TUNNEL  PRESSURE  GRADIENT  MEASUREMENTS  FOR  FLOW  OVER  OCTANE (n) 


anemometer  were  measured  with  a  TSI  1076  voltmeter.  King's  law  in  the 
following  form  was  applied  to  the  calibration  data: 

Eb2  =  A  +  B  Vw"  (IV. 17) 

where  A,  B,  and  n  are  constants  determined  by  linear  regression  analysis 
and  Eb  is  the  bridge  voltage.  Usually  the  exponent  n  has  a  value  of 
0.45  <  n  <  0.5.  The  exponent  n  was  selected  so  that  the  correlation 
coefficient  returned  in  the  linear  regression  analysis  was  a  maximum.  A 
typical  calibration  curve  is  shown  in  Figure  IV. 9.  The  hot-wire  was  oper¬ 
ated  at  200°C  which  was  below  the  ignition  temperature  of  the  chemicals 
being  tested.  The  relative  turbulence  intensity  was  computed  from  a  linear 
perturbation  of  Equation  (IV. 17) 

au/Vw  =  2  ae  Eb/[n(Eb2-A)]  (IV. 18) 

where  au  is  the  rms  or  standard  deviation  of  the  velocity  u,  and  ae 
is  the  measured  rms  voltage. 

Concentration  measurements  were  taken  with  a  Century  OVA- 128  total 
hydrocarbon  analyzer  which  has  a  hydrogen  flame  ionization  detector.  The 
OVA  was  calibrated  for  each  chemical  used.  The  calibration  was  of  the  form 

X  =  A  ,XQn  (IV. 19) 

where  X  is  the  volume  fraction  in  ppm  (parts  per  million),  XQ  is  the 
OVA  measurement,  and  A  and  n  are  constants  determined  by  linear  re¬ 
gression  analysis.  Table  IV. 12  is  a  table  of  calibration  constants,  and 
Figure  IV. 10  is  a  typical  calibration  curve.  The  meter  for  the  OVA  was 
analog  with  a  linear  range  of  0  to  10  and  a  resolution  of  0.1.  The  in¬ 
strument  included  a  scale  factor  of  1,  10,  and  100  ppm,  or  it  had  a  maxi¬ 
mum  range  of  1000  ppm.  For  those  measurements  outside  the  range  of  the 
OVA,  a  dilutee  was  used  which  was  also  calibrated.  The  volume  fraction, 

X.  in  Equation  (IV. 19)  is  related  to  the  mass  fraction,  C,  in  Equa¬ 
tions  ( I  1 1  .  19)  and  (III.  ',’(>)  by 
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TABLF  IV. 12  CALIBRATION  CONSTANTS  FOR  CENTURY 
0VA-123  ORGANIC  VAPOR  ANALYZER 


Chemical 

Date 

Coefficient 

A 

Exponent 

n 

Correlation 

Coefficient 

Dilution 

Ratio 

Ethyl  Acetate 

07-16-82 

1.276 

0.9468 

0.9992 

11.5 

09-07-82 

1.082 

1.004 

0.9995 

12.1 

09-08-82 

0.018 

1.018 

0.9996 

11.9 

09-08-82 

C\J 

o 

0.9523 

0.9987 

11.5 

Hexane 

11-30-82 

1.272 

0.9366 

0.9992 

12.54 

Hexanol 

09-21-82 

1.120 

1.100 

0.9974 

j 

I 

02-24-83 

1.037 

1.078 

0.9995 

All 

1.144 

1.078 

0.9967 

) 

i 

Octane 

07-08-82 

0.684 

0.9700 

0.9946 

18.1  ! 

10-05-82 

1.097 

0.9416 

0.9978 

11.43  | 

02-24-83 

0.8438 

0.9946 

0.9971 

10-05-82  & 

1 

02-24-83 

1.015 

0.9574 

0.9971 

11.43 

Octanol 

10-26-82  & 

12-03-82 

1.593 

0.8909 

0.9793 

10 


10^ 


103 


OVA  measurement  X0,  ppm 


FIGURE  IV .10  TYPICAL  CALIBRATIOfl  CURVE  OF  CENTURY  OVA-128  ORGANIC 
VAPOR  ANALYZER  FOR  OCTANE (n ) .  STRAIGHT  LINE  IS 
A  LINEAR  REGRESSION  WITH  A  CORRELATION  OF  0.9078 


X  =  C  Ma/M 


(IV. 20) 


where  Ma  is  the  molecular  weight  of  air,  and  M  the  molecular  weight  of 
the  chemical . 


A  schematic  of  the  gas  sampling  system  for  the  concentration  pro¬ 
file  measurements  is  shown  in  Figure  IV. 11.  A  gas  sample  was  withdrawn 
from  the  wind  tunnel  through  the  sampling  probe  by  a  Metal  Bellows  Corp. 
pump.  The  flowrate  was  adjusted  by  a  needle  valve  and  measured  by  a  cali¬ 
brated  Matheson  rotameter.  The  sample  gas  was  collected  in  two-liter 
plastic  bags  and  analyzed  with  the  OVA.  The  flowrate  of  the  sampling  sys¬ 
tem  was  adjusted  to  the  local  mean  velocity  on  the  basis  of  velocity  pro¬ 
file  measurements  with  the  hot-wire  anemometer.  The  vertical  position  for 
the  concentration  and  velocity  profile  measurements  was  set  by  the  DISA 
traversing  system  which  has  a  resolution  of  0.02  mm. 


The  gas  sampling  probe  was  designed  and  built  specifically  for  this 
project.  The  probe  consisted  of  three  stainless-steel  tubes  with  an  out¬ 
side  diameter  of  1.91  mm  (0.075  in)  and  inside  diameter  of  1.36  mm 
(0.0535  in).  The  tubes  were  separated  by  19.1  mm  (0.75  in)  horizontally 
with  the  entrances  in  the  same  plane.  The  three  tubes  were  routed  through 
a  6  nin  (0.237  in)  diameter  stainless  steel  tube  and  manifolded  by  teflon 
tubing  at  the  exit  of  the  main  probe  shaft.  The  sampling  tubes  were  bent 
so  that  their  lengths  between  the  probe  tip  and  main  shaft  were  the  same 
and,  consequently,  so  that  the  pressure  drops  were  nearly  the  Same. 

I V .  2 . 4  Mi  nd  Ju  nn  ej  __  Tests:  Pis  solution 

Theory.  In  the  present  program,  only  the  model  for  dissolution  on 
lakes  and  coastal  waters  was  investigated.  Measurement  of  mass  transfer  by 
the  profile  method  was  not  feasible,  however,  because  of  the  very  thin  con¬ 
centration  boundary  layer  in  the  water  for  "insoluble"  chemicals.  The  con¬ 
centration  boundary  layer  thickness,  from  Shaw  and  Hanratt.y  [36],  is  (for 
large  Reynolds  number  and  S'  hm;dt  number): 


\:t  SS;) 


(17.21) 
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Plastic  Sample 


FIGURE  IV. 11  SCHEMATIC  OF  GAS  SAMPLING  SYSTEM  FOR  CONCENTRATION  PROFILE  MEASUREMENTS 


where  the  Dalton  number  is  given  in  Equation  (III. 34).  In  their  experimental 
results  K=  0.0889  and  n=  0.704.  As  an  estimate,  the  concentration  boundary 
layer  thickness,  <5C+,  for  Sc  -  1000  is  1.46,  or  in  physical  units  is  0.1076 
(3  mils)  on  the  basis  of  water  boundary-layer  measurements  by  Lin,  et  al.  [45] 

where  u  was  1.92  cm/s  for  a  wind  speed  of  10  m/s  and  fetch  of  6m.  Conse- 

*w 

quently,  a  successful  verification  with  available  instrumentation  would  be  the 
detection  of  no  chemical  in  the  water  within  6.4  min  of  the  free  surface,  the 
location  of  the  first  probe.  Significant  chemical  in  the  water  would  indicate 
that  another  mechanism  is  more  important  than  boundary  layer  processes  in 
dissolution. 

Wind  Tunnel .  Minor  modifications  were  made  to  the  chemical  feed  system 
of  the  evaporation  tests.  The  feed  system  for  the  dissolution  experiments  uni 
formly  dispensed  chemical  on  the  water  surface  upstream  and  withdrew  the  chem¬ 
ical  at  the  downstream  edge  of  the  pan.  This  method  of  chemical  dispersal  on 
the  water  surface  was  selected  after  some  experimentation.  Other  methods 
would  have  allowed  dispersal  without  removal  of  the  chemicals,  but  chemical 
would  accumulate  downstream  and  waves  would  grow.  Also,  more  chemical  would 
be  required  to  cover  the  surface.  Removal  of  the  chemical  downstream  allowed 
a  more  uniform  slick  thickness  through  control  of  both  the  inflow  and  outflow, 
and  consequently,  the  spill  was  modeled  more  accurately. 

The  chemical  was  dyed  with  a  mixture  of  one  part  per  5,000  of  the  red 
dye  from  the  spreading  experiments.  The  dye  served  two  purposes.  First,  the 
dye  indicated  when  the  surface  was  completely  covered  by  the  chemical,  and 
second,  the  dye  aided  visually  in  the  separation  of  the  chemical  from  the 
water  during  recovery  of  the  chemical  at  the  downstream  end  of  the  pan. 

Instrumentation.  A  liquid  sampling  probe  was  built  from  the  same 
tubing  as  the  gas"  sampling  probe.  The  probe  was  a  conventional  rake  arrange¬ 
ment  of  four  tubes  with  their  entrances  in  a  vertical  plane  at  6.4  mm  (0.25 
inch)  intervals,  with  the  top  probe  positioned  6.4  mm  below  the  free  surface. 
Liquid  samples  of  8  cm'1  each  were  withdrawn  through  teflon  tubing  by  a  10  cr  ’ 
glass  hypodermic  syringe.  Samples  were  withdrawn  at  15-minute  intervals  for 
one  hour.  Preliminary  testing  showed  that  the  top  probe  had  to  be  at  least 
6.4  cm  below  the  surface  in  order  to  avoid  surface  disturbances. 


The  liquid  samples  were  then  analyzed  for  chemical  concentration. 

The  differences  in  solubilities  of  the  chemicals  tested  required  two  analysis 
methods.  Water  samples  with  ethyl  acetate  and  hexanol  were  analyzed  with  a 
Beckman  Carbonaceous  Analyzer  (NDIR)  which  is  a  total  organic  carbon  combus¬ 
tion-infrared  device.  The  octane  and  hexane,  whose  solubilities  are  quite 
low,  were  analyzed  by  the  microextraction  method  and  a  gas  chromatograph. 

IV. 2. 5  Wind-Wave  Channel  Tests:  Dissolution  arid  Evaporation 

Wind-Wave  Channel.  Evaporation  and  dissolution  experiments  were  per¬ 
formed  in  the  wind-wave  channel  at  Flow  Industries,  Inc.,  in  Kent,  Washington. 
The  theory  and  experimental  methods  for  these  experiments  were  essentially 
the  same  as  described  in  the  previous  two  sections.  The  wind-wave  channel 
consisted  of  a  wave  tank  with  dimensions  of  9.1m  length,  1.2m  width,  and 
0.9m  depth,  and  it  included  a  mechanical  wave  maker.  A  wind  tunnel  of  equal 
width  was  located  above  the  wave  tank  with  a  variable  height  test  section 
which  was  set  at  65  cm  for  these  experiments.  The  test  station  was  5.5in 
from  the  wine'  tunnel  entrance.  Additional  details  on  the  channel,  its  per¬ 
formance,  and  instrumentation  are  contained  in  Lin,  et  al.  [45]. 

The  chemical  feed  system  was  slightly  different  from  that  described 
in  [45].  The  system  was  originally  designed  as  a  once-through  system  for 
the  chemical.  It  was  modified  so  that  chemical  could  be  continuously  fed 
through  the  system.  A  slight  amount  of  dye  was  added  to  the  chemical  to 
make  the  wat' r/chemical  interface  readily  visible  in  the  recovery  tanks. 

Instrumentation.  The  instrumentation  for  the  wind-wave  channel  ex¬ 
periments  was  similar  to  that  previously  described.  The  liquid  and  gas 
sampling  systems  were  the  same;  however,  the  liquid  sampling  probe  was  re¬ 
placed  by  a  larger  rake.  The  rake  consisted  of  six  sampling  tubes  with 
3.2mm  (1/8  in.)  outside  diameter.  The  vertical  spacing  between  tube  center- 
lines  was  25.4mm  (1  in. ). 

All  probes  for  the  traverse  in  air  were  mounted  on  one  traversing 
mechanism.  The  probes  included  the  following: 
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a.  Two  TSI  1210  hot-wire  probes  (Tungsten  T1.5  sensor) 

b.  Thermistor  for  air  temperature 

c.  Pitot-static  probe 

d.  Gas  sampling  probe 

The  hot-wire  anemometer  was  a  TSI  1054B.  The  water  surface  temperature  was 
monitored  with  a  thermistor.  The  flow  of  chemical  onto  the  water  surface 
was  controlled  and  measured  with  a  Dwyer  rotameter.  The  tunnel  speed  and 
hot-wire  calibration  were  determined  by  a  Dwyer  micromanometer  and  Pitot- 
static  probe. 

The  wave  heights  were  measured  with  a  photodiode  wave  height  gauge 
which  consisted  of  the  following  components: 

a.  Reticon  Model  LC600V256-1  camera 

b.  Reticon  RS605  Line  Scan  Controller 

c.  Spectra  Physics  164  argon  ion  laser 

The  laser  was  operated  at  approximately  3  Watts  of  power,  and  the  water  was 
dyed  with  a  fluorescent  dye.  Since  only  the  water  was  illuminated,  the 
wave  heights  were  actually  measured  at  the  chemical/water  interface.  The 
resolution  of  the  gauge  for  these  experiments  was  0.25mm. 

All  data  were  processed  with  a  digital  data  acquisition  system  and 
computer.  The  data  provided  included  the  mean  and  rms  values  in  physical 
units  of  the  following: 

a.  Velocities  from  two  hot-wires 

b.  Air  and  water  surface  temperatures 

c.  Position  of  traversing  mechanism,  and 

d.  Wave  height. 

Approximately  30  seconds  of  data  were  averaged.  All  measurements  but  wave 
height  were  simultaneous.  Since  the  wave  height  measurements  were  digital 
and  the  other  measurements  analog,  two  different  software  routines  were 
required  for  the  data  acquisition.  Plots  of  the  data  (signal  vs.  time) 
were  also  provided  by  the  data  acquisition  system. 


iV.3  Data  Collection  (Typical  Results) 


IV. 3.1  Spreading  Tests 

Only  a  general  overview  of  these  experiments  mainly  based  on  flow 
visualization  will  be  presented  in  this  section.  For  detailed  information 
atout  the  results  of  each  experiment,  see  Appendices  A  through  E  of  the 
Test  Data  Volume  of  the  Final  Report. 


Instantaneous  Jpills  in  Basin,  ihe  series  of  photographs  labeled 
Figure  IV.  12  show  a  time  lapse  sequence  of  a  60  liter  instantaneous  spill 
of  naphtha.  As  can  be  seen,  the  chemical  spreads  ax i symmetrically  from  the 
spill  point.  The  outer  edge  of  the  thick  slick  was  very  easy  to  distinguish 
at  the  beginning  of  the  spill.  Later,  when  the  slick  was  considerably 

i 

tninner,  a  thin  slick  beqan  forming  which  made  it  more  difficult  to  dis¬ 
tinguish  the  edge  of  the  thick  slick  as  shown  in  Figure  IV. 13.  At  that 
point,  the  data  collection  was  stopped.  From  the  data  obtained,  a  graph 
of  slick  diameter  as  a  function  of  time  was  drawn  as  shown  in  Figure  IV. 14, 
for  comparison  with  the  computer  model  predictions. 

These  results  are  typical  of  the  non-volatile  instantaneous  spills 
studied.  The  results  for  all  of  the  non-volatile  instantaneous  spills  in 
the  basin  are  contained  in  Appendix  A  of  the  Test  Data  Volume  of  the  Final 
Report. 

Continuous  Spills  in  Basin.  The  series  cf  photographs  labeled 
Figure  IV. 15  show  a  time  lapse  sequence  of  a  continuous  spill  of  naphtha 
at  a  spill  rate  of  0.95  liters/  second.  The  slicks  spread  much  the  same 
as  the  instantaneous  spills  described  above.  The  major  difference  was 
that  a  thin  slick  formed  almost  immediately  on  the  outer  edges  of  the 
slick.  This  made  it  more  difficult  to  document  the  thick  slick  sp/aading 
rate.  From  the  data  obtained,  a  graph  of  slick  diameter! as  a  function  of 
time  was  drawn,  as  shown  in  Figure  IV. 16,  for  comparison  with  the  computer 
model  predictions. 
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(a) 


FIGURES  IV. 12  (d,b)  60-LITER  NON-VOl ATILE 
INSTANTANEOUS  NAPHTHA  SPILL 
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FIGURES  IV. 12  (c.d)  60-LITER  NON-VOLATILE 
INSTANTANEOUS  NAPHTHA  SPILL 
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FIGURE  IV. 13  FINAL  SPREADING  STAGE  OF  AN 
INSTANTANEOUS  SPILL 
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Diameter,  Centimeters 
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(b) 


Figures  IV. 15  (a,b)  0.95  LITER/SECOND  NON-VOLATILE 

CONTINUOUS  NAPHTHA  SPILL 
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(d) 


FIGURES  IV. 15  (c.d)  0.95  LITER/SEC0N0  NON-VOLATILE 

CONTINUOUS  NAPHTHA  SPILL 
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These  results  are  typical  of  the  non-volatile  continuous  spills 
studied.  The  results  for  all  of  the  non-volatile  continuous  spills  in  the 
basin  are  contained  in  Appendix  B  of  the  Test  Data  Volume  of  the  Final 
Report. 


Continuous  Spills  in  Channel.  Figures  IV. 17  are  photographs  of  the 
development  of  four  different  continuous  spills,  of  m-Xylene  in  the  channel. 
The  table  below  summarizes  the  flow  conditions  for  the  pictures  in  this 
figure. 


Flow 

Conditions 

River  Speed 
{cm/sec) 

Discharge  Flowrate 
(liter/sec) 

A 

13.4 

0.038 

B 

18.9 

0.050 

C. 

24.1 

0.100 

D 

29.0 

0.149 

These  river  speed/discharge  flowrate  combinations  were  chosen  to  maximize 
the  length  of  the  channel  over  which  spreading  could  occur  without  any 
influence  of  the  walls.  Data  collection  of  this  slick  width  downstream 
of  the  spill  location  was  stopped  when  the  thin  slick  hit  the  channel  walls. 
The  thin  slick  is  indistinguishable  in  the  photographs  of  Figure  IV. 17. 

From  the  data  obtained,  a  graph  of  slick  width  vs.  downstream  distance  was 
drawn  for  comparison  with  the  computer  model  predictions.  Figures  IV. 18 
through  IV. 21  show  these  graphs  for  the  four  m-Xylene  spills  discussed 
above. 


These  results  are  typical  of  the  continuous  spills  in  the  channel 
that  were  studied.  The  results  for  all  of  the  continuous  spills  in  the 
channel  are  contained  in  Appendix  E  of  the  Test  Data  Volume  of  the  Final 
Report. 
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FIGURES  IV. 17  (C, D)  CONTINUOUS  SPILLS  OF  m-XYLENE 
IN  A  FLOWING  RIVER 
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1.22 


SLICK  SPREADING  OF  ni- XYLENE  FOR  FLOW  CONDITION  B 


FIGURE  IV. 20  SLICK  SPREADING  OF  m-XYLENE  FOR  FLOW  CONDITION  C 


IV. 3. 2  Evaporation  Tests 

Velocity  Profile  Measurements.  Since  the  friction  velocity  and 
boundary  layer  thickness  were  required  for  calculation  of  Dalton  number  in 

f 

Equation  (III. 27),  the  velocity  profiles  were  measured  for  model  validation. 
The  results  of  the  velocity  profile  measurements  are  summarized  in  Table 
IV. 13.  The  data  in  the  table  includes  the  wind  velocity,  friction  velocity, 
friction  coefficient, intercept,  roughness  parameter,  the  correlation  coeffi¬ 
cient  for  the  linear  regression,  the  average  coefficient  for  the  1/7  power- 
law  velocity  profile,  and  the  boundary  layer  thickness.  The  results  are 
compared  to  those  of  a  standard  smooth  flat  plate.  The  boundary  layer  thick 
ness  was  computed  from  the  1/7  power-law  profile  where  u/Vw  =  0.99. 

Representati ve  velocity  profiles  are  presented  in  Figures  IV. 22  and 
IV. 23  for  the  pan  evapnration  and  wind-wave  experiments,  respectively.  For 
the  pan  evaporation  experiments,  the  surface  velocity,  Us,  was  assumed  to 
be  zero.  In  the  wind-wave  experiments,  the  surface  velocity  was  assumed  to 
be 

Us/u*  =  0.55  (IV. 22) 

in  accordance  with  the  reconmendation  of  Street,  et  al.  [46].  Another 
possible  method  is  from  conservation  of  momentum  across  the  air-water  inter¬ 
face  for  a  1/7  power-law  velocity  prof’le.  The  result  is 

Vw/Us  -  (o/pa) (v/va)*  (IV.  23) 

At  standard  pressure  and  a  temperature  of  20°C,  the  surface  velocity  is 

Vw/Us  =  30.96  (IV. 24) 

Either  result  is  consistent  with  previous  experiments  in  the  wind-wave 
channel  [46] 


'■./  Ihr  velocity  profiles  wi  re  typical  of  Mow.  over  a  .month  surf-ire 
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TABLE  IV.  13  SU^RY  OF  VELOCITY  PROFILE  MEASUREMENTS 
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FIGURE  IV. 22  VELOCITY  PROFILES  OVER  OCTANE  If!  PAN  EVAPORATION  EXPERIMENTS 
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were  anomalous.  In  particular,  the  flow  at  725  cm/s  with  the  wavemaker  had 
an  exceptionally  low  friction  coefficient.  The  friction  coefficient  in  this 
case  is  possibly  in  error  from  a  wave  induced  velocity  component. 

In  other  cases,  the  friction  velocities  are  also  apparently  low.  For 
example,  at  729  cm/s  without  the  wavemaker,  the  friction  velocity  is  28.1 
cm/s  whereas  Lin,  et  al.  [45]  reported  38  cm/s  at  a  tunnel  velocity  of  7  m/s. 

Another  exception  is  the  flow  over  hexanol  at  730  cm/s  in  the  wind- 
wave  channel.  Figure  IV. 24  is  a  plot  of  the  friction  coefficients  of  all 
experiments  in  comparison  to  a  smooth  surface.  As  the  figure  indicates,  the 
friction  coefficient  over  hexanol  in  the  wind-wave  channel  was  unusually  high. 
However,  this  result,  which  implies  flow  over  a  rough  surface,  is  also  consisj- 
tent  with  the  wave  height  measurements  and  flow  visual ization  experiments. 

The  wave  heights  were  increased  in  the  flow  over  hexanol  whereas  the  octane 
dampened  the  waves.  This  phenomenon  is  associated  with  the  spreading  coeffi¬ 
cient  of  the  chemical  on  water. 

Wave  Height  Measurements  and  Slick  Thickness.  One  of  the  objectives 
of  the  wind-wave  experiments  was  to  measure  the  effect  of  waves  in  mass 
transfer  from  evaporation.  The  results  of  the  wave  height  measurements  are 
summarized  in  Table  IV. 14.  The  interesting  result  in  this  table  is  a  compari¬ 
son  of  the  rms  wave  heights  for  water,  octane,  and  hexanol  at  7.5  m/s  for 
wind  waves  only.  The  octane  dampens  the  waves  while  hexanol  increases  the  ; 

i 

wave  height. 

The  wave  heights  in  non-dimensional  inner-scale  variables  are  also  j 
included  in  Table  IV. 14.  Doth  rms  and  mean  wave  heights  are  included  in  the  j 
table.  The  rms  was  measured,  but  the  evaporation  model,  Equation  (III. 27), 
contains  the  mean  wave  height.  According  to  Street  [29],  the  mean  and  rms 
wave  heights  are  related  by 

hm+  =  (2m)55  n,  (VI.  25) 

The  frequency  and  peak-to-peak  amplitude  of  the  inechan kn 1 1 /-genera ted 
waves  were  1.6  Hz  and  3  cm,  respectively. 


For  the  wind-wave  experiments,  slick  thickness  may  be  an  important 
parameter  in  evaporation  and  dissolution.  Slick  thickness  was  estimated 
by  conservation  of  mass  from  the  following: 

h  =  Q/(u‘  w)  (IV. 26) 

where  Q  is  the  measured  flowrate  of  the  chemical  onto  the  water  surface, 
w  is  the  tunnel  width,  and  the  surface  velocity,  Us,  is  estimated  from 
Equation  (IV. 22)  or  (IV. 24).  The  primary  assumption  in  Equation  (IV. 26) 
is  that  the  slick  moves  uniformly  as  slug  flow.  The  average  slick  thick¬ 
ness  with  two  different  estimates  of  surface  velocity  is  tabulated  for  all 
the  experiments  in  Table  IV. 15. 

Normally,  both  octane  and  hexanol  have  positive  spreading  coefficients. 
Consequently,  they  will  continue  to  spread  until  they  form  a  monolayer.  How¬ 
ever,  in  the  case  of  hexanol,  a  thin  layer  spreads  very  rapidly  and  locally 
changes  the  surface  tension  of  the  water.  Thus,  the  spreading  coefficient 
of  hexanol  becomes  negative,  and  hexanol  forms  lenses.  The  minimum  thick¬ 
ness  for  an  infinitely  large  slick  is  given  by  Equation  (III. 15).  From  this 
equation,  the  minimum  thickness  for  a  hexanol  slick  is  2  mm.  Since  the 
average  thickness  was  estimated  to  be  only  0.04  mm,  only  a  small  fraction 
of  the  surface  was  covered  by  lenses.  The  surface  area  covered  by  lenses 
could  be  estimated  from  [19]  if  an  average  lens  diameter  were  assumed. 

Slick  thickness  for  these  experiments  can  be  controlled  by  the  flow- 
rate  of  the  feed  system.  The  flowrate  of  hexanol  was  less  than  the  octane 
in  these  experiments  because  the  flowrate  was  limited  by  the  higher  vis¬ 
cosity  of  the  hexanol. 

Evaporation  Concentration  Profiles.  The  results  for  the  concentration 
measurements  are  summarized  in  Table  IV. 16.  Typical  concentration  profiles 
are  shown  in  Figures  IV. 25  and  IV. 26  for  the  pan  evaporation  experiments  and 
wind-wave  experiments,  respectively.  In  general,  the  curves  are  relatively 
linear  and  yield  reasonable  values  of  the  Dalton  number,  flo  trends  have 
been  discovered  on  the  value  of  the  intercept,  Bf. . 
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TABLE  IV. 15  ESTIMATED  AVERAGE  SLICK  THICKNESS 
FOR  WIND-WAVE  EXPERIMENTS 


Surface 

(cm/s) 

Chemical 

Flowrate 

(t/min) 

us<’> 

(cm/s) 

H 

U  (2) 
us 

(cm/s) 

h 

(mm) 

Octane 

208 

5.3 

4.91  ' 

0.15 

6.73 

0.11 

342 

8.8 

7.17 

0.17 

11.0 

0.11 

*  482 

8.8 

11.7 

0.10 

15.6 

Essa 

519 

8.8 

11.4 

0.11 

16.8 

0.073 

*  357 

8.8 

7.46 

0.16 

11.5 

0.11 

729 

9.7 

15.5 

0.087 

23.5 

0.057 

Octane 

*  725 

10.6 

'  12.4 

0.12 

23.4 

0.063 

Hexanol 

730 

6.6 

24.5 

0.037 

1 

23.6 

0.039 

(1)  Us/u*  =  0.55 

(2)  Vw/Us  =  30.96 

Wavemaker 

SUMMARY  OF  EVAPORATION  CONCENTRATION  °ROFILE  MEASUREMENTS 
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FIGURE  IV. 25  CONCENTRATION  PROFILES  FOR  OCTANE  IN  PAN  EVAPOR, 

CLOSED  SYMBOLS  ARE  FOR  OCTANE  ON  WATER 
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FIGURE  IV. 26  CONCENTRATION  PROFILES  FOR  HIND-WAVE  CHANNEL  EXPERIMENTS. 
CLOSED  SYMBOLS  ARE  FOR  WAVEMAKER 


The  quality  of  the  data  was  checked  through  repetition  of  the  ex¬ 
periments.  One  such  check  is  the  two  concentration  profiles  for  a  wind 
speed  of  5  m/s.  Although  the  repeat  data  are  not  within  the  error  bars  of 
the  measurement,  the  data  are  reasonably  close.  The  error  bars  are  +2o, 
or  20-to-one  odds,  and  the  standard  deviation  of  the  concentration  measure¬ 
ments  was  established  by  an  average  of  twenty  consecutive  measurements  at 
one  location.  According  to  Moffat  [47],  this  procedure  will  determine  the 
accuracy  of  the  standard  deviation  within  j_5».  The  standard  deviation  was 
measured  to  be  8%  of  the  mean  concentration  of  octane  at  two  locations, 
one  in  the  boundary  layer  and  one  at  the  downstream  sampling  station. 

Values  of  the  Dalton  number  for  all  pan  evaporation  experiments  ar~ 
shown  in  Figure  IV. 27  in  comparison  to  the  theories  of  Street  [29]  and 
Yaglom  and  Kader  [28]  for  smooth  flow.  This  figure  indicates  that  Schmidt 
number  effects  are  not  discernible  in  these  experiments.  Also,  no  relation¬ 
ship  can  be  identified  between  the  results  of  the  two  methods  of  mass  transfer 
measurement;  however,  in  most  cases  the  results  are  the  same  within  experi¬ 
mental  error. 

The  results  for  octane  in  the  pan  evaporation  experiments  are  pre¬ 
sented  in  Figure  IV. 28.  The  primary  purpose  of  this  figure  is  to  indicate 
the  magnitude  of  uncertainty  in  the  measurements.  The  error  bars  are  again 
for  +2a.  The  uncertainty  for  the  profile  measurements  was  determined  from 
the  standard  deviation  of  the  slope  in  the  -linear  regression  analysis.  The 
uncertainty  for  the  downstream  concentration  measurement  was  computed  from 
an  average  of  20  bag  samples.  The  error  bars  for  the  two  measurements  of 
Dalton  number  usually  overlap.  Also,  the  error  bars  are  smaller  for  the 
more  volatile  chemicals  such  as  ethyl  acetate,  and  larger  for  the  less 
volatile  such  as  hexanol  and  octanol .  The  results  for  the  octane  on  water 
experiments  are  comparable  to  the  pure  octane  experiments. 

Dalton  numbers  from  the  the  two  test  facilities  are  compared  in 
Figure  IV. 29  for  the  profile  method.  The  uncertainty  in  the  wigd-wave 
experiments  tends  to  be  less,  and  the  Dalton  numbers  are  smaller.  The 
lower  Dalton  numbers  may  be  associated  with  slick  thickness.  The  :1k> 
thickness  of  octane  on  water  for  the  pan  evaporation  experiments  was  pro¬ 
bably  much  thicker  than  in  the  wind-wave  experiments.  Since  the  Dalton 
number  of  hexanol  is  similar  to  that'of  octane,  the  water  surface  must 
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Inner-scale  Dalton  number.  Da 


'  Chemical  SchmidtJllfiAer 
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Ethyl  Acetate 

1.82 

□ 

Hexanol 

2.19 

o 

Octane 

2.61 
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IGiJRE  IV. 23  DALTON  NUMBER  WITH  2o  ERROR  BARS  FOR  OCTANE  IN  PAN  EVAPORATION  EXPERIMENTS.  SOLID 
SYMBOLS  ARE  FROM  PROFILE  METHOD,  AMD  OPEN  SYMBOLS  FROM  TUNNEL  EXHAUST  CONCENTRATION 
MEASUREMENTS.  SYMBOLS  WITH  SLASH  ARE  FOR  OCTANE  ON  WATER  EXPERIMENTS 


have  be 
Dalton 


en  covered  in  a  thin  film  during  lens  formation;  otherwise, 
number  would  have  been  much  smaller. 


the 


The  effect  of  roughness  on  Dalton  number  is  emphasized  in  Figure  IV. 30. 
The  Dalton  number  is  plotted  as  a  function  of  wave  height  for  the  experimental 
data  o.id  for  the  theories  of  Street  [29]  and  Yaglom  and  Kader  [28],  in  which 
6+ =  2000  and  Sc  =2.61  were  used  in  Equation  (III. 27).  The  data  are  con¬ 
sistent!  with  the  hypothesis  that  mass  transfer  will  diminish  in  flows  over 
rough  surfaces. 


During  the  pan  evaporation  experiments,  substantial  cooling  occurred. 
The  liquid  temperature  attained  steady  state  before  data  acquisition.  The 
liquid  surface  temperature  was  used  in  the  calculation  of  the  saturation 
concentration.  The  temperature  of  the  chemicals  tested  as  a  function  of 
wind  speed  is  presented  in  Figure  IV. 31.  This  cooling  has  two  important 
effects:  boundary  layer  stabilization  and  errors  in  velocity  for  the  hot¬ 
wire.  In  the  concentration  calculations  for  these  experiments,  the  friction 
velocity  from  the  velocity  measurements  over  octane  were  used.  Cooling  was 
not  detected  in  the  wind-wave  experiments. 

j 

IV. 3. 3  Spreading  and  Evaporation  Tests  JnBasJn 

The  procedures  used  for  the  spreading  and  evaporation  tests  in  the 
basin  were  similar  to  the  non-volatile  spreading  tests  in  the  basin  dis¬ 
cussed  earlier  in  Section  IV. 3.1.  These  tests,  which  included  evaporation, 
differed  from  the  non-volatile  tests  in  two  ways: 

(1)  Since  a  wind  was  necessary  for  evaporation,  the  entire  slick 
tended  to  move  with  the  wind  while  spreading.  Although  the 
slicks  stayed  relatively  symmetric,  they  no  longer  were  center¬ 
ed  in  the  basin,  and  special  treatment  was  necessary  to  deter¬ 
mine  the  average  slick  diameters  over  time. 

(?)  The  evaporation  of  the  chemicals  caused  the  outer  edges  of  the 
slick  to  form  irregular  fingers  rather  than  being  smooth.  Esti¬ 
mation  of  each  average  radii  was  necessary  during  the  data 

I  collection  to  collect  mezningful  slick  diameter  data. 
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FIGURE  IV. 31  STEADY  STATE  LIQUID  SURFACE  TEMPERATURE  FOR  VARIOUS 
CHEMICALS  FROM  EVAPORATIVE  COOLING  IN  PAN 
EVAPORATION  EXPERIMENTS 
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The  data  collected  for  the  spreading  and  evaporation  tests  in  the 
basin  were  graphed  in  the  form  of  average  slick  diameter  as  a  function  of 
time.  The  results  for  all  of  the  volatile  instantaneous  spills  are  con¬ 
tained  in  Appendix  C  of  the  Test  Data  Volume  of  the  Final  Report.  The 
results  for  all  of  the  volatile  continuous  spills  are  contained  in 
Appendix  0  of  the  Test  Data  Volume. 

IV. 3. 4  Dissolution  Tests 

Wind  Tunnel.  Four  chemicals  (ethyl  acetate,  hexane,  hexanol ,  and 
octane)  were  tested  for  dissolution  in  water  in  the  wind  tunnel  as  a  func¬ 
tion  of  wind  speed.  The  measured  solubilities  are  listed  in  Table  IV. 17 


TABLE  IV. 17  SOLUBILITY 


Chemical 


Ethyl  Acetate 

Hexane 

Hexanol 

Octane 


~  Measured  ,  Literature  i 
Solubility  ’  Solubility  j 
(PP"0  ; _ j 

64,387  87,000  ! 

7  9.5  | 

6,149  6,000  i 

6,305  ' 

2  0.43  -  0.88  ! 


in  comparison  to  values  from  the  literature.  The  solubilities  cf  hexane 
and  octane  were  much  lower  than  that  listed  in  Appendix  A;  however,  they 
are  in  agreement  with  those  reported  by  Mackay  and  Shiu  [48].  The  results 
of  the  dissolution  tests  are  summarized  in  Table  IV. 18.  Since  the  concen¬ 
tration  profiles  were  fairly  uniform,  only  an  average  value  (over  the  31.7mm 
depth  of  the  probe)  is  presented  for  each  time  interval.  Octane  and  hexane 
were  virtually  insoluble.  A  maximum  of  one  percent  of  the  solubility  limit 
for  octane  was  measured  in  a  60-minute  period  while  15Y  was  the  maximum  for 
hexane.  Dissolution  rate  was  a  strong  function  of  wind  speed  for  eth/1  ace¬ 
tate.  Ethyl  acetate  reached  1 00%  of  its  solubility  in  60  minutes  at  5  m/s 
while  hexanol  attained  77'r.  saturation  under  the  same  renditions. 


.V  '*•  '* r-9  ’*•  ■ 


’  J*  ^  V  V  V  V  .«  .*  J* 
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TABLE  IV. 18  RESULTS  OF  DISSOLUTION  TESTS  IN  SwRI  WIND  TUNNEL 

Average  of  4  Concentration  Measurements 
Over  a  Depth  of  2 5  to  30  mm. 


Chemical 

Vw 

(m/s) 

Saturation 

00 

T  i  me 
(min) 

Ethyl  Acetate 

2 

20.1 

15 

2 

29.7 

30 

2 

3S.5 

45 

2 

44.2 

60 

5 

46.0 

15 

5 

72.0 

30 

5 

89.3 

45 

Ethyl  Acetate 

5 

100.0 

60 

Hexane 

5 

5.7 

15 

5 

9.3 

30 

i 

5 

9.6 

45 

Hexane 

5 

14.6 

60 

Hexanol 

2 

38.2 

15 

2 

58.9 

30 

2 

66.4 

45 

2 

65.7 

60 

5 

42.5 

15 

5 

62.0 

30 

5 

68.8 

45 

Hexanol 

5 

77.3 

60 

Octane 

5 

0.7 

15 

5 

1.3 

30 

Octane 

5 

0.4 

45 

g 

V, 


128 


Wind-Wave  Channel.  The  more  interesting  dissolution  results  were 
from  the  wind-wave  channel.  Again,  octane  was  essentially  insoluble,  but 
the  hexanol  was  uniformly  dispersed  in  the  upper  layer  of  water.  The  con¬ 
centration  profiles  are  shown  in  Figure  IV. 32  for  a  wind  speed  of  7.5  m/s 
and  with  mechanical  waves.  The  profiles  were  averaged  and  plotted  as  a 
function  of  time  in  Figure  IV. 33.  The  difference  in  concentration  with  its 
saturated  value  decays  in  time  like  a  diffusion  process.  The  time  con¬ 
stant  is  0.0164  min'^. 

The  dissolution  process  was  investigated  further  by  flow  visualiza¬ 
tion.  Sufficient  dye  was  added  to  the  hexanol  so  that  it  was  readily 
visible  on  the  water  surface.  Hexanol  lenses  formed  on  the  surface  with 
diameters  of  approximately  5  mm.  Hexanol  droplets  were  dispersed  into  the 
water  by  wind  waves.  Neither  mechanical  waves  nor  breaking  waves  were 
required  for  the  droplet  dispersion.  At  7.5  in/s,  the  drops  were  dispersed 
to  a  depth  of  10  to  15  cm.  In  contrast,  the  octane  formed  a  uniform  sheet 
on  the  water  surface,  and  no  droplets  were  formed. 
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V.  COMPARISON  OF  MODELS  AND  TESTS 


V .  1  Spreading  Models 

The  tests  described  in  Section  IV. 3.1  are  sufficient  to  establish 

(1)  the  empirical  constants  Kg q ,  K2Q,  K]],  and  K2 g  in  the  spreading  models 
for  instantaneous  and  continuous  spills  in  open  water  without  a  current,  and 

(2)  the  empirical  constants  K]2  and  K22  1n  the  spreading  model  of  continu¬ 
ous  spills  in  open  water  with  a  current.  Although  the  empirical  constants 
in  the  channel  models  cannot  be  established  di recti y  by  any  of  the  tests, 
their  values  can  be  inferred  from  the  constants  that  can  be  established. 
According  to  the  model  derivation  presented  in  Section  III. 2. 4,  for  example, 
the  lateral  spreading  of  a  slick  formed  by  a  continuous  spill  in  a  current 
is  identical  with  the  one-dimensional  spreading  of  an  instantaneous  spill 

in  a  channel  without  a  current;  therefore,  it  is  reasonable  to  assume  that 
Ci 0  =  K]2  and  C20  =  ^22-  *n  addition,  as  is  shown  below,  there  is  little 
difference  between  the  constants  for  instantaneous  and  continuous  spills  in 
open  water  without  a  current;  it  is  reasonable  to  expect  the  same  kind  of 
relations  for  spills  in  a  channel ,  so  C]]-»  C]q  (=  K^)  and  C22  «  C20 
(=  K22 ) -  Finally,  if  there  is  a  current  in  a  channel,  the  downstream 
spreading  of  the  slick  from  a  continuous  spill  is  mostly  due  to  the  current; 
thus,  there  can  be  little  error  involved  in  assuming  that  =  C-j q  and 
C22  =  C20-  With  these  physically  reasonable  assumptions,  all  the  empirical 
constants  in  the  spreading  models  can  be  established  by  the  test  data. 

After  a  portion  of  the  test  data  is  used  to  determine  the  empirical 
constants,  the  rest  of  the  test  data  is  used  to  verify  the  models. 

I nstantaneous  Spill  in  Open  Water  ( Neg 1 i g i b 1 e  _E  vaporation ) .  Typical 
data  (from  Test  1.2.4)  are  shown  in  Figure  V.l,  in  the  form  of  the  logarithm 
of  the  observed  spill  diameter  plotted  against  the  logarithm  of  the  elapsed 
time.  This  form  of  plot  is  convenient  to  reveal  a  power-law  type  of  depen¬ 
dency  of  the  diameter  on  t tie  time,  as  expected  from  Equations  (III. 3)  and 
(Ili.5).  II  is  evident  that  the  data  points  do  fall  naturally  on  two 
straight  lines,  whose  slopes  are,  to  within  the  accuracy  of  the  data  measure¬ 
ments,  equal  to  the  theoretically-predicted  values  of  0.50  and  0.25  for 
gravi ty-inertial  and  g.ra v i ty-vi scous  spreading.  The  fundamental  assumptions 
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SLICK  DIAMETER,  METERS 


T inure  V.l.  Spreading  Reqimes  for  Instantaneous 
Spill  Test  1.2-4 
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of  the  model  are  therefore  confirmed.  (It  ought  to  be  noted  that  mass  loss 
due  to  evaporation  and  dissolution  is  negligible  for  this  chemical  and  test 
condition;  hence.  Equations  (III. 3)  and  (III. 5)  are  applicable,  rather  than 
the  more  complicated  version  of  the  model  given  in  Table  III. 2.)  The  time 
of  transition  from  gravity-inertial  to  gravity-viscous  spreading  in  Figure 
V.l  and  the  slick  diameter  at  that  time  are  used  to  compute  the  empirical 
constants;  the  result  is  that  K-]q  =  1.53  and  =  1-21.  Both  constants 
are  of  order  unity  as  expected.  Previous  semi-analytical  estimates  gave 
Kio  =  1-14  and  <2g  =  0.98  [7].  The  present  values  are  slightly  larger 
than  the  previous  estimates  but  the  ratio  i^o/K^i  is  about  the  same  for 
both. 


Figures  V.2  through  V.4  compare  predictions  of  the  model  with 
K] o  =  1-53  and  <2q  =  1-21  to  test  results  for  a  variety  of  spill  sizes 
and  chemical  densities.  (Again,  the  evaporative  loss  of  mass  from  the  slick 
is  negligible,  so  Equations  (III. 3)  and  (III. 5)  can  be  applied  directly.) 

The  predictions  match  the  data  very  well,  especially  for  the  larger  spills 
where  any  influence  of  a  lack  of  true  "instantaneous"  initial  conditions  is 
small. 


Continuous  Spill  in  Open  Water  Without  a  Current  ( Negl igi ble  Evapora¬ 
tion).  The  test  data  from  a  typical  test  (Test  II. 4. 4)  are  plotted  in  log- 
log  form  in  Figure  V.5.  Just  as  for  the  instantaneous  spills,  the  data 
points  fall  on  two  straight  lines  whose  slopes  are  in  agreement  with  theory. 
(Mass  loss  from  the  slick  is  negligible,  also  as  before.)  From  the  observed 
transition  time  and  diameter,  the  computed  empirical  constants  are  Kpj  = 

1.24  and  K21  =  1.09.  There  are  no  previous  data  or  analyses  to  which  these 
values  can  be  compared. 

Figures  V.6  through  V.9  show  comparisons  of  the  revised  model  to  tests 
with  a  variety  of  discharge  rates  and  chemical  densities.  The  predictions 
overall  match  the  data  well,  although  the  comparison  for  the  hexanol  spill 
shown  in  figure  V.8  is  not  good  near  the  end  of  the  discharge  period. 

(In  many  ol  the  tests,  the  behavior  of  hexanol  was  noticeably  different  from 
that  of  the  other  chemicals.  Although  Lite  reasons  for  the  differences  could 
not  be  isolated,  it  is  believed  that  the  large  spreading  coefficient  of  hexanol 
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Fiqure  V.8  Comparison  of  Model  and  Tost  for  Continuou 

Spill  Test  11.3-2 


caused  a  rapid  growth  of  the  thin  slick  and  a  subsequent  change  of  the  sur¬ 
face  spreading  properties  in  the  water  ahead  of  the  thick  slick.  There  was 
some  tendency  noted  for  hexanol  to  form  lenses  in  the  small-scale  spreading 
tests. ) 


Continuous  Spill  in  Open  Water  With  a_  Current  ( Neg 1 i g i b 1 e  Evaporation) 
Although  these  tests  were  conducted  in  a  channel,  data  were  measured  only 
during  the  time  when  the  thick  slick  was  still  well  away  from  the  channel 
wa’ls.  The  test  data  therefore  correspond  to  a  discharge  in  open  water  with 
a  current. 

The  results  of  a  typical  test  (Test  V.1.4)  are  shown  in  log-log  form 
in  Figure  V. 10.  Once  again,  the  test  data  points  fall  on  two  straight  lines 
having  the  theoretically-predicted  slopes  for  gravity-inertial  and  gravity- 
viscous  spreading  when  mass  losses  are  negligible.  Because  there  was  some¬ 
what  more  scatter  in  the  data  from  test-to-test  than  for  the  open-water, 
zero-current  tests,  the  data  from  two  tests  were  used  to  establish  the  em¬ 
pirical  constants  in  the  spreading  model.  The  best  fit  to  the  data  gives 
K]2  =  2.37  and  K22  =  3.65.  As  mentioned  previously,  the  empirical  con¬ 
stants  for  the  one-dimensional  spreading  of  an  instantaneous  spill  are  theo¬ 
retically  identical  to  K-| 2  =  l<22-  Previous  estimates  of  the  constants  for 
one-dimensional  spreading  of  instantaneous  spills  are  C-j0  =  1.39  to  1.50 
and  C20  =  1-39  to  1.50  [7].  The  present  constants  are  thus  about  twice  as 
large  as  the  previous  estimates,  according  to  this  idea  of  similarity  be¬ 
tween  the  two  forms  of  spreading.  The  previous  estimates,  which  are  based 
on  semi-analytical  theories  and  small-scale  test  results,  may  be  in  error-, 
on  the  other  hand,  the  two  types  of  spreading  may  be  qualitatively  similar 
but  require  different  constants. 

Figures  V.ll  through  V.14  show  comparisons  of  the  revised  model  to 
test  results  for  a  variety  of  discharge  rates,  chemical  densities,  and  cur¬ 
rents.  The  comparisons  are  sufficiently  close  to  verify  the  model,  although 
not  quite  as  close  as  for  the  tests  conducted  in  the  large  basin.  The 
slightly  poorer  correlation  is  perhaps  not  surprising  considering  the  scatter 
in  the  data  inherent  in  measuring  slick  widths  from  video  recordings. 
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Figure  V . 1 3  Comparison  of  Model  and  Test  for  Continuous-Spill-in-a-Current  Test  V. 4-3 


Figure  V.14  Comparison  of  Model  and  Test  for  Continuous-Spil 1 -in-a-Current  Test  V.5-4 


V.2  Evaporation  Rate  Model 

The  proposed  evaporation  model  appears  to  be  adequate  for  the  present 
application  without  any  changes.  These  experiments  are  probably  the  first 
where  mass  transfer  of  a  hydrocarbon  is  measured  by  the  profile  method.  The 
differences  between  theory  and  experiment  are  likely  within  the  uncertainties 
of  the  experimental  methods.  In  future  experiments,  the  inflow  and  outflow 
of  chemical  from  the  water  surface  should  be  measured,  and  the  effects  of 
slick  thickness  evaluated.  Also,  the  influence  of  spreading  coefficient  on 
waves  should  be  evaluated  since  such  roughness  effects  are  coupled  with  mass 
transfer. 

V.3  Dissolution  Rate  Model 


The  boundary  layer  model  suggested  for  dissolution  may  be  adequate 
for  certain  classes  of  highly  insoluble  hydrocarbons  such  as  hexane  and 
octane.  For  other  chemicals  such  as  hexanol ,  droplet  dispersion  in  the 
water  may  be  the  dominant  mechanism  for  dissolution,  and  breaking  waves  are 
not  required  necessarily  for  droplet  dispersion.  No  models  are  currently 
available  which  adequately  describe  such  a  mechanism.  Probably  the  inter¬ 
facial  tension  of  the  chemical  with  water  is  an  important  physical  property. 

V.4  Spreading  Models  With  Evaporation 


As  discussed  in  Section  V.l,  spreading  tests  with  non-volatile  chem¬ 
icals  established  the  empirical  constants  in  the  spreading  models,  and  the 
wind  tunnel  and  wind-wave  tunnel  tests  discussed  in  Section  V.2  established 
the  empirical  constants  in  the  evaporative  mass-transfer  coefficient  corre¬ 
lation.  In  this  section,  the  effects  of  spreading  and  evaporation  are  com¬ 
bined,  and  the  model  predictions  are  compared  to  tests  of  instantaneous  and 
continuous  spills  of  volatile  chemicals  in  the  large  basin.  Spreading  tests 
that  adequately  demonstrate  the  effects  of  evaporation  are  difficult  to  con¬ 
duct  since  the  high  wind  needed  to  cause  significant  evaporation  also  tends 
to  move  the  slick  to  the  boundary  of  the  basin  rapidly.  The  wind  also  dis¬ 
torts  the  shape  of  the  slick  so  that  it  is  More  difficult  to  determine  the 
slick  urea  and  the  average  diameter  than  it  is  for  tests  with  little  or  no 


wind. 
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Figure  V.15  shows  a  comparison  of  the  data  for  a  large  spill  of  pen¬ 
tane,  the  most  volatile  of  the  test  chemicals,  to  the  prediction  of  the  model 
with  evaporation  included,  as  well  as  to  predictions  with  the  evaporation 
suppressed  by  setting  the  wind  speed  to  zero.  Although  the  model  fits  the 
data  to  within  the  scatter  in  the  tests  that  were  used  to  establish  the 
empirical  spreading  coefficients,  the  comparison  is  not  as  close  as  the 
typical  comparison  with  non-volatile  chemicals.  This  lack  of  good  compar¬ 
ison  is  not  believed  to  be  a  deficiency  in  the  model  but,  as  mentioned  above, 
due  to  the  difficulty  in  computing  an  accurate  average  diameter  for  a  slick 

that  moved  a  significant  distance  away  from  the  source  during  the  test. 

I 

j 

|  Figure  V . 1 6  shows  a  typical  comparison  of  model  and  data  for  a  con¬ 

tinuous  spill.  The  spreading  model  for  these  test  conditions  falls  into 
the  exceptional  category  discussed  previously  in  Section  III. 2. 4,  namely, 
the  case  where  IJy  is  small  in  comparison  to  the  gravitationally-induced 
spreading  velocity.  The  model  assumes  a  triangular  shape  for  the  slick 
when  Uy  >  0  (no  matter  how  small  Uy  is),  although  the  observed  slick 
was  elliptical  and  surrounded  the  source  rather  than  being  totally  downwind 

|  of  it.  Thus,  a  first  estimate  of  the  spill  size  as  a  function  of  time  was 
made  by  setting  the  wind  speed  equal  to  zero  in  order  to  predict  a  radial 
spreading.  Although  the  model  then  matches  the  observed  shape  very  well, 
evaporative  losses  are  not  predicted  since  the  assumed  wind  speed  is  zero. 
Thus,  to  estimate  the  mass  lost  by  evaporation,  the  model  of  an  instantaneous 
spill  of  the  same  total  volume  was  exercised  twice,  once  with  the  true  wind 
speed  and  once  with  the  wind  speed  set  equal  to  zero.  The  difference  in 
evaporative  losses  and  s 1 ’ c k  diametars  were  then  applied  to  the  continuous 
spill  results.  The  comparisi  n  to  the  data  is  not  quite  so  dose  as  was  ob¬ 
tained  in  general  with  the  non-volatile  chemical  tests,  but  in  this  case  the 
model  over-predicts  the  results. 

Altogether,  it  is  concluded  that  the  models  adequately  predict  the 
effects  of  evaporation  on  the  spreading  of  instantaneous  and  continuous 
spills. 


VI.  DEMONSTRATION  CASES 


The  input  and  output  data  for  five  different  examples  of  the  com¬ 
puterized  models  are  presented  in  this  section.  Table  VI. 1  gives  a  brief 
description  of  each  of  the  examples.  They  show  most  of  the  features  of  the 
models  and  were  selected  to  h i gh t light  potential  difficulties  in  interpreting 
the  computed  results. 

Table  VI. 2a  is  an  exact  copy  of  the  user  "prompts",  the  input  data, 
and  the  input  printout  of  Demonstration  Case  No.  1  as  they  would  appear  on 
a  terminal  screen.  The  data  following  each  ?  are  the  input  supplied  by  the 
user.  Most  of  the  required  input  is  self-explanatory.  The  "time  increment" 
requested  at  the  fourth  prompt  is  the  integration  time  step;  a  value  of  1.0 
second  is  suggested  and  has  been  found  to  be  satisfactory  for, spills  of 
practical  size  and  duration,  but  here  the  spill  is  quite  small  so  a  shorter 
time  step  is  used.  The  "run  time"  requested  at  the  fifth  prompt  is  the 
maximum  length  of  time  that  the  slick  motion  will  be  followed;  the  computa¬ 
tions  will  cease  at  this  time'  unless  one  of  the  other  termination  criteria 
is  met  first.  (The  criteria  are:  slick  has  evaporated  and/or  dissolved  to 
zero  thickness;  the  thickness  of  the  thick  slick  is  less  than  the  allowed 
value  given  as  input;  or  the  slick  has  reached  a  lake  boundary  or  a  coast.) 

The  "minimum  thickness  of  thick  slick"  requested  at  the  sixth  prompt  is  the 
user's  estimate  of  the  thickness  below  which  the  thick  slick  begins  to  spread 
predominantly  in  the  surface  tension-viscous  mode  (i.e.,  as  a  thin  slick); 
comoutations  cease  when  the  thickness  falls  below  the  input  value,  and  a 
notification  is  printed  in  the  output.  The  present  experiments  indicate 
that  0. 0001/meters  is  an  appropriate  value  for  this  thickness.  The  "thick¬ 
ness  of  thin  slick"  requested  is  normally  the  same  as  the  minimum  allowed 
value  of  the  thick  slick  thickness  although  the  equality  is  not  specifically 
required.  Later  in  the  input,  the  requested  wind  direction  is  referenced  to 
the  positive  x-axis.  The  last  input,  the  printout  time  step,  is  the  time 
duration  between  printouts  of  the  results;  only  forty  printouts  are  allowed, 
so  the  user  should  make  sure  that  the  ratio  of  run  time  to  printout  time 
step  is  not  larger  than  forty. 


TABLE  VI. 1  DESCRIPTION  OF  DEMONSTRATION  CASES 


TABLE  VI. 2a  INTERACTIVE  INPUT  FOR 
DEMONSTRATION  CASE  NO.  1 


v*  v 


*  J  9  4  * 


K* 

ft 

I 

& 

i 

& 

& 

,4s 


\ 

V.1 

*-’•> 

V;1 

S: 


M 


£ 

»  J* 


ENTER  THE  TITLE  FOR  THIS  RUN.. 

?  DEHO  NO.  1 

INPUT  THE  AM8IENT  TEMPERATURE  IN  CELSIUS. 

?  20 

INPUT  THE  BAROMETRIC  PRESSURE  IN  MILLIBARS 
OR  ZERO*  0,  FOR  THE  STAHOARO  SEA  LEUEL  PRESSURE 
OF  1013.25  M8. 

?  0 

INPUT  THE  TIME  INCREMENT  IN  SECONDS.  TRY  1.0. 

?  .1 

INPUT  THE  DESIRED  RUN  TIME  IN  MINUTES 
?  1.33333 

IHPUT  MINIMUM  ALLOWABLE  THICKNESS  OF  THICK  SLICK  IH  METERS 
?  l.E-4 

INPUT  THICKNESS  OF  THIN  SLICK  IN  METERS. 

?  l.E-4 


mmimmmmtmmmt 

*  HATER  BODY  DESCRIPTION  * 

tttxxxxtxxxxxxxxxxxtxxxxxxxxxx 

IS  SPILL  IN  RIUER  OR  CHANNEL?  Y'N 
?  N 

IS  IT  A  LAKE?  Y'N 
?  Y 

IS  IT  A  CIRCULAR  LAKE?  Y/N 
?  Y 

GIUE  THE  RAO I US  AND  DEPTH  OF  THE  CIRCULAR  LAKE 
<UNIT  I  METER) 

?  20,0.3 

IS  THERE  CURRENT?  Y/N 
?  H 


P,v 


<8 

& 

W: 

>«i 


IS  THERE  HIND  IN  THE  AREA  ?  Y^M 

?  Y 

IS  HIND  SPEED  CONSTANT?  Y/N 

?  Y 

IHPUT  HIND  SPEED  (METER'SEC)  ANO  DIRECTION 
ANGLE  (DEGREES) 

?  1.83,0 


IHPUT  MEAN  WAUE  HEIGHT. (METER) 

DEFAULT  UALUE  (EO. ( 1 1 1 . 32)  OF  REPORT)  IS  USED 
BY  IHPUTTIHG  -1. 

?  .01 

GIUE  SPILL  COORDINATES  X  AMD  Y,  IH  METERS 
?  0,0 


ft 

r’.V 

■m 


HE 

1. 

3. 

5. 

7. 

9. 


itmmmmmm 

*  SPILL  TYPE  t 

xxxxxxxxxxxtxxxxxxtx 

HAUE  STANDARD  PROPER? 
ALLYL  CHLORIDE 
BUTADIENE  (1,2) 

BUTYL  MERCAPTAN  (H) 
CYCLOHEXAHE 
DIPROPYL  ETHER  (ISO) 


IES  FOR  THE  FOLLOWING  CHEMICALS 
2.  BENZENE 

4.  BUTYL  ACETATE  (ISO) 

6.  CHLOROBUTA- 1- 3-DIENE 
8.  CYCLOHEXENE 
10.  ETHYL  CHLORIDE 


■-V. 
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CHEMICAL  NAME  IS:  PENTANE 

CHEMICAL  DENSITY  =  626.00  KG/CU.M. 

MOLECULAR  HEIGHT  =  72.151  KG/KG-MOLE 

DIFFUSION  COEFF  <AIR>  =  .75000E-05  SQ.M. /SEC 

DIFFUSION  COEFF  (HATER)  =  .84000E-09  SQ.M. /SEC 

CHEMICAL  UAPQR  PRESSURE  =  58772.29  HEHTON/SQ. M. 

SOLUBILITY  IN  HATER  =  .36  KG/CU.M. 

THE  INTERFACE  TENSION  HRT  AIR  IS  . 16046E-01  NEHTON/M. 
THE  INTERFACE  TENSION  HRT  HATER  IS  .50280E-01  NEHTON/M 

THE  SPREADING  COEFFICIENT  IS  .65142E-02  NEWTON/tl. 

IS  SPILL  1.  INSTANTANEOUS  OR  2.  CONTINUOUS? 

?  1 

INPUT  THE  TOTAL  SPILLED  UOLUME  (CUBIC  METER) 

?  .04 

INPUT  THE  PRINTOUT  TIME  STEP  IN  MINUTES. 

?  .066667 


*  V'  . 

•7  1 
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Table  VI. 2b  shows  some  of  the  computed  results  for  Demonstration 
Case  No.  1.  (The  printout  of  the  input  conditions  is  not  given  in  the  table, 
only  the  computed  results.  The  actual  printout  includes  the  input.)  First, 
the  results  at  the  end  of  the  gravity-inertial  phase  (0.14445  minutes,  or 
8.7  seconds  in  this  case)  are  printed.  Then  the  regular  printout  routine 
begins  at  about  12  seconds,  which  is  the  first  printout  time  greater  than 
the  gravity-inertial  spreading  time  that  is  an  integral  multiple  of  the  re¬ 
quested  printout  time  step.  (The  printout  occurs  at  12.073  seconds  rather 
than  exactly  12  seconds  because  the -time  step  of  the  numerical  integration 
scheme  rarely  coincides  with  the  requested  printout  time  step.)  The  print¬ 
out  gives  information  about  the  thick  slick  size,  thickness,  and  mass,  the 
position  of  the  center  of  the  slick,  and  the  mass  of  evaporated  and  dis¬ 
solved  chemical.  Similar  printout  is  given  every  four  seconds  (although 
the  results  between  16  seconds  and  80  seconds  are  not  included  here,  for 
brevity)  until  the  requested  run  time  is  exceeded.  None  of  the  other  termi¬ 
nation  criteria  is  met. 

Table  VI. 3a  shows  the  input  for  a  continuous  spill  that  is  otherwise 
similar  to  Demonstration  Case  No.  1.  The  computed  results  are  shown  in 
Table  VI. 3b.  Again,  the  results  at  the  end  of  the  gravity-inertial  spread¬ 
ing  phase  are  given  first.  Note  that  for  a  continuous  spill,  the  output  in¬ 
cludes  data  about  the  thin  slick.  Because  there  is  no  current,  the  trans¬ 
port  velocity  is  due  only  to  the  wind  and  is  thus  very  small.  As  a  result, 
the  triangular  slick  is  much  wider  (17.0  meters)  than  ’t  is  long  (3.55  meters). 
In  reality,  the  slick  formed  under  such  small  transport  velocity  conditions 
would  be  roughly  elliptical  and  would  enclose  the  spill  source,  rather  than 
being  entirely  downstream  of  it;  this  was  discussed  earlier  in  Section  III. 
After  the  discharge  stops  at  1  minute,  a  switch  is  made  to  an  instantaneous 
model  and  the  form  of  the  printout  charges  to  indicate  it.  Because  of  the 
difference  in  shape  of  the  slick  assumed  in  the  two  models,  there  is  a  small 
discrepancy  in  the  predicted  slick  position  at  the  time  of  the  switch. 

Moreover,  only  the  location  of  the  center  of  the  slick  is  printed  out  for 
the  instantaneous  model.  In  this  case,  the  triangular  slick  is  so  wide 
compared  to  its  length  that  the  instantaneous  slick  is  allowed  to  spread 
one-dimensional  l.y  (as  if  it  were  in  a  channel)  until  the  shape  becomes  more 
"squarish".  At  that  time  (which  would  occur  here  tor  a  time  longer  than 


159 


TABLE  VI. 2b  SAMPLE  COMPUTED  OUTPUT  FOR 
DEMONSTRATION  CASE  NO.  1 


SP  RE  AO  I N  C  POOEL  OUTPUT 


THICK  SLICK  ha  S  SPREAC  OVER  A  CIRCULAR  AREA  Of  .  2  A  3  <)  3  E  .02  SCUAR  E  PEIgeS, 
hlTH  A  RADIUS  Of  .2 786i£‘01PETERS  AfTER  THE  flRST  .  1  6 AS *E .OOP  I NU T£ S 


TIME  •  0-00  PINUTES  12.073  SECONOS 

Thick  slick  area  -  .^a60S£.02  sa.«.  thick  slick  thickness 

THICK  SLICK  RAOIUS  -  .30I7SE»01  PETERS 


.  I  3P8  ?E  -  02  PETERS 


TOTAL  PASS  Of  THICK  SLICK 
TOTAL  EVAPORATED  PASS 
RATE  Of  EVAPORATION 
TOTAL  OISSOLVEO  PASS 
RATE  Of  DISSOLUTION 


-2A013£*C2  KC. 

•  2266  3£  *C0  KC. 

-2S0'Tl£-02  KG/E SEC-SC ) 
.<.Na3SE-0A  KC. 

•S18S3E-C6  KG/ISEC-SC.P.) 


TOTAL  pass 


-  -2*CAO£»C2  KC. 


THE  CENTER  Of  THE  SLICK  IS  LOCATEO  AT  >  »  ,?73’SE"GC  PETERS  ANO  T  •  0. 


PETERS 


Tint  •  0.00  PINUTES  16.073  SECONOS 

THICK  SUCK  AREA  -  .  I2732E*02  SC.P.  THICK  SUCK  THICKNESS 

THICK  SUCK  RAOIUS  •  •  32  2  7  8  E  *0  L  PETEiS 


.  I  l'TS'TE  “0  2  PETERS 


TOTAL  PASS  Of  THICK  SUCK 
TOTAL  EVAPORATED  PASS 
RATE  Of  EVAPORATION 
TOTAL  OISSOLVEO  PASS 
RATE  Of  DISSOLUTION 


.2A5CSe*C2  KC. 

.S  ?SCA£*CC  KC. 

•2S041E-02  KC/ ( SEC-SO .P . ) 
.1  10S7E-C3  KC. 

.S1853E-06  KC/I SEC-SO. P. » 


TOTAL  PASS 


■  . 2  S  OPOE  »C  2  KC. 


THE  CENTER  Of  THE  SLICK  IS  LCCATEO  AT  J 


LC.’SSE-Ol  "ETERS  ANO  Y  -  0. 


Ting  .  1.00  PINUTES  20.073  SECONOS 

THICK  SLICK  AREA  •  .  S  66  2  7E  *0  2  SO.P.  ThICK  SlICk  ThIC“nESS 

THICK  SLICK  RAOIUS  *  .62  J  8  l  £  «  0  1  PEIESS 


.  6  70  Pc>E-03  PETERS 


TOTAL  PASS  CF  THICK  SUCK 
TOTAL  EVAPORATED  PASS 
rate  cf  evaporation 
total  OISSOLVEO  PASS 
rate  OF  DISSOLUTION 


.  I  66  )  3E -C2  K  C. 

.860aOE»C1  KC. 

.2S091E-02  KC/ I SEC-SC .P. ) 
. I 7170E-C2  kc. 

.SlKStF-06  kC/ I  St  f.-SC  .p  .  ) 


TOTAL  PASS 


. 2  6  C  6  Of  »G2  KC  . 


THE  CtMfR  OF  THE  SLICK  IS  LOCATED  »T  >  •  .  ‘  l  2  H  7  F  ♦<.  L  "ETERS  ANO  Y  •  C 
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TABLE  VI. 3a  INTERACTIVE  INPUT  FOR 
DEMONSTRATION  CASE  NO.  2 


ENTER  THE  TITLE  FOR  THIS  RUN.. 

?  DEMO  HO.  2 

INPUT  THE  AMBIENT  TEMPERATURE  IN  CELSIUS. 

?  28 

INPUT  THE  BAROMETRIC  PRESSURE  IH  MILLIBARS 
OR  ZERO.  8,  FOR  THE  STANDARD  SEA  LEUEL  PRESSURE 
OF  1813.25  MB. 

?  0 

INPUT  THE  TIME  INCREMENT  IN  SECONDS.  TRY  1.0. 

?  .  1 

INPUT  THE  DESIRED  RUN  TIME  IN  MINUTES 
?  1.33333 

INPUT  MINIMUM  ALLOWABLE  THICKNESS  OF  THICK  SLICK  IN  METERS. 
?  l.E-4 

INPUT  THICKNESS  OF  THIN  SLICK  IN  METERS. 

?  l.E-4 


tttttttttttttttttttttttttttttt 
t  HATER  BODY  DESCRIPTION  * 
tttttttttttttttttttttttttttttt 

IS  SPILL  IN  RIUER  OR  CHANNEL?  Y/N 
?  N 

IS  IT  A  LAKE?  Y/N 
?  Y 

IS  IT  A  CIRCULAR  LAKE?  Y/N 
?  Y 

GIUE  THE  RADIUS  ANO  DEPTH  OF  THE  CIRCULAR  LAKE 
(UNIT  :  METER) 

?  28,8.3 

IS  THERE  CURRENT?  Y/N 
?  H 

IS  THERE  HIND  IN  THE  AREA  ?  Y/N 

?  Y 

IS  HIND  SPEED  CONSTANT?  Y/N 
?  Y 

INPUT  HI HD  SPEED  (METER/SEC)  AND  DIRECTION 
ANGLE  (DEGREES) 

?  1.94,8 

INPUT  MEAN  HAUE  HEIGHT. (METER) 

DEFAULT  UALUE  <EQ.(III.32)  OF  REPORT)  IS  USED 
BY  INPUTTING  -1. 

7.01 

GIUE  SPILL  COORDINATES  X  AND  Y,  IN  METERS 

?  0,0 

tttttttttttttttttttt 
t  SPILL  TYPE  t 
tttttttttttttttttttt 

HE  HAUE  STANDARD  PROPERTIES  FOR  THE  FOLLOWING  CHEMICALS 
1.  ALLYL  CHLORIDE  2.  BENZENE 

3.  BUTADIENE  (1,2)  4.  BUTYL  ACETATE  (ISO) 

5.  BUTYL  MERCAPTAN  (N)  6.  CHLOROBUTA- 1 -3-D I ENE 

7.  CYCLOHEXANE  8.  CYCLOHEXENE 

9.  DIPROPYL  ETHER  (ISO)  10.  ETHYL  CHLORIDE 
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TABLE  VI. 3a 


(CONTD) 


11.  ETHYL  MERCAPTAN 
13.  HEXANE  (H) 

15.  NONANE  (M> 

17.  PENTANE 

19.  TRIMETHYLBENZENE 


12.  HEPTANE  <N> 

14.  METHYL  CYCLOHEXANE 
16.  OCTANE  (N) 

18.  TOLUENE 
20.  XYLENE  (H> 


ENTER  THE  NO.  YOU  WANT  OR 

NEGATIUE  UALUE  -  IF  YOU  WANT  TO  INPUT  THE  PROPERTIES 
99  -  IF  THE  CHEMICAL  IS  NOT  ON  THE  LIST 


8AR0HETRIC  PRESSURE  :  1013.250  MILLIBAR 


TEMPERATURE 


20.000  DEGREES  C 


CHEMICAL  NAME  IS:  PENTANE 
CHEMICAL  DEHSITY 
MOLECULAR  WEIGHT  =  72.151 

DIFFUSION  COEFF  (AIR)  =  .; 

DIFFUSION  COEFF  (WATER)  = 
CHEMICAL  UAPOR  PRESSURE  = 
SOLUBILITY  IH  WATER 


626.00  KG/CU.M. 
KG/KG-MOLE 
,  75008E-05  SQ.M. ✓SEC 
,  84080E-09  SQ.M. /SEC 


58772.29 

.36 


NEWTON/SQ.M. 

KG/CU.M. 


THE  INTERFACE  TENSION  WRT  AIR  IS  .16046E-01  NEWTON/M. 
THE  INTERFACE  TENSION  WRT  WATER  IS  .50200E-01  NEWTON/M. 

THE  SPREADING  COEFFICIENT  IS  .65I42E-02  NEHTON/H. 

IS  SPILL  1.  INSTANTANEOUS  OR  2.  CONTINUOUS? 

?  2 

INPUT  THE  RATE  OF  DISCHARGE  (CU.M. /SEC) 

?  .001 

INPUT  THE  TOTAL  DURATION  OF  SPILL  IN  MINUTES 
?  1. 

INPUT  THE  PRINTOUT  TIME  STEP  IN  MINUTES. 

?  .066667 


TABLE  VI. 3b  SAMPLE  COMPUTED  OUTPUT  FOR 
DEMONSTRATION  CASE  NO.  2 


spreaoinc  model  uutput 


THICK  SLICK  Ha S  SPREAD  OVER  An  ELONGATED  TRIANGULAR  AREA  OF  . JO 1 6 t E .0; 

SQUARE  METERS  AFTER  A  TINE  OF  .  8  7  11  ft  •  OOM  1  NCI  TE  S  . 

THE  THICK  Slick  LEAOInC  £0C£  IS  .17000E-02  peters  RICE  anc  IS  .35591E-01  PETERS 

DOWNSTREAM. 

THE  THIN  SLICK  AREA  IS  £  QUAL  TO  .25135E-03  SQUARE  METERS. 


TINE  *  0.00  MINUTES  56.070  SECONOS 

thick  slick  area  ■  .3355ie»o2  sc.m.  thick  slick  thickness 

Thick  SLICK  OOkNSTREaM  WIDTH  -  . I  756  8£  »02  METERS 

THIN  SLICK  AREA  *  .255  56E  *03  SQ.M. 

THIN  SLICK  DOWNSTREAM  wIOTH  •  .1290C£«Q3  PETERS 


TOTAL  mass  of  THICK  slick 
TOTAL  EVAPGRATEO  MASS 
RATE  OF  EVAPORATION 
TOTAL  OISSOLVED  MASS 
RATE  OF  DISSOLUTION 
TOTAL  MASS  OF  THIN  SLICK 


•I9509£*C2  KG. 

.31867E*CC  KG. 

.26 372E-C?  KC/ISEC-SC.M.) 
.66037E-05  KG. 

*5565  0E-06  <C/(SEC-SC.N.) 
•15372E-C2  KG. 


.92715E-03  METERS 


TOTAL  MASS 


. 35ICOE-C2  KC. 


The  LEADING  EOGE  CF  THE  SLICK  IS  L  OC  A  1 E  0  AT  *  -  .JeC92E-Ct  PETERS  anO 

T  -  0.  METERS 

The  TRAILING  EOCE  OF  THE  SLICK  IS  LOCATED  AT  the  SPILL  CRIGIN 


TIME  -  1.00  PINUTES  .070  SECONOS 

THICK  SLICK  ARE*  *  . 36^5  7£ ♦ 02  SQ.M.  THICK  SLICK  THICKNESS  •  .919056-03  "ETERS 

THICK  SLICK  OOunS I  REAP  xIOTH  ■  .1H122E»02  PETERS 

THIN  SLICK  AREA  •  .25002£»03  SQ.M. 

THIN  SLICK  OOWNSTREAM  KIOTH  •  .I226CE*03  PETERS 


TOTAL  MASS  OF  THICK  SLICK 
TOTAL  EVAPORaTEO  MASS 
RATE  OF  EVAPORATION 
TOTAL  OISSOLVEO  MASS 
RATE  OF  DISSOLUTION 
TOTAL  MASS  OF  THIN  SLICK 


.2  1262  E ♦ C  2 
.689926  -CC 
.26372E-C2 
.1579  7E-0  3 
.55650E-C6 
.15651E-C2 


KC. 

KG. 

KG/ISEC-SQ.P. ) 
KC  . 

KG/ 1 SEC-SC.M. ) 
K  G  . 


TOTAL  "ASS 


•  3  7605E ♦ C  2  KC. 


THE  IEAOING  EOGF  CF  THE  SLICK  IS  LOCATED 
THE  TRAILING  EOGE  OF  T He  SUCK  IS  LQCATEO  a! 


AT  7  •  .  50  73  ME  *0  l 

T  -  C. 

THE  SPILL  ORIGIN 


“FTERS  ANC 
PE  TFRS 


TIME  "  I. 00  MINUTES  5.070  SECONOS 

THICK  SUCK  AREA  -  .J6618E-02  SQ.M.  T-iICK  SLICK  THICKNESS 


TOTAL  MASS  OF  THICK  SUCK 
TOTAL  EVAPORATEO  MASS 
RATE  CF  EVAPORATION 
TOTAL  OISSOLVEO  MASS 
RATE  CF  DISSOLUTION 


,208756  *02  KC. 

.  1C  7806  •  C  1  KC  . 

■26J72E-C2  KG/ I  SEC- SC. p. ) 
.2233 9E -03  KG. 

.S56S0E-C6  KG/ISEC-SC .p.) 


.9  10  t  2  fc -0  I  -ETTAS 


TOTAL  mass 


-219s2f »C2  KC. 


The  CENTER  OF  the  SlIlk  Is  LOCAlfco  if  « 
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.2S9CPE-C1  Mf  T  £  K  S  AND  r 


c 


PE  IE  l 


TABLE  VI. 3b  (CON TO) 


tin  .  1.00  ninutes  i.o>o  seccncs 

thick  slick  as ea  •  U6279e»02  so.-.  thick  suck  thickness  •  .90220E-03  "Eters 

total  nass  of  thick  suck  -  .20*901  *C2  kc. 

total  EvaPORATEO  NASS  •  .U«H*Cl  KC. 

SAIC  Of  EVAPORATION  -  .26372E-02  K  0/ I  St  C- SC  .> .  I 

TOTAL  OISSOLVEO  N  A  s  S  *  .3C1UNE-CJ  KC. 

RATE  OF  OISSOLUT  ION  -  . SNNSOE -C6  KC/ I  S  £  C  -  SO  .  I*  .  » 


TOTAL  HASS 


.219821*02  kc. 


THE  CENTER  OF  THE  SLICK  IS  LCCAfEO  AT  »  •  .32e2aE*C1  rETEBS  AnO  t  -  0.  N£T£R 


TINE  •  1.00  HINUES  12.070  SECONDS 

THICK  SUCK  AREA  -  .38980£*02  SOU.  THICK  SUCK  THICKNESS  *  .<i93?7£-03  “ETE»S 

TOTAL  NASS  OF  THICK  SUCK  «  .20109E.C2  KC. 

TOTAC  EVAPORATED  HASS  -  .18838£*C1  KC. 

RATE  OF  EVAPORATION  -  .26372E-C2  K C/ I S EC  -  SC . N . ) 

TOTAL  OISSOLVEO  HASS  -  .38200E-C3  KC. 

RATE  OF  DISSOLUTION  •  .88680  E-C6  KC/ I  SE  C-SO .  <•  .  I 


TOTAL  NASS  •  .21982£*C2  KC. 

The  CENTER  OF  The  SUCK  IS  LOCATED  AT  >  -  ,38>*C£*Cl  NITERS  ano  r  .  C.  N  EitK 


TINE  *  1.00  NINUTES  16.070  SECCNOS 

THICK  SLICK  AREA  .  .  3860  2E  *02  SU.N.  THICK  SUCK  THICKNESS  - 

TOTAL  NASS  OF  THICK  SUCK  *  .197316*02  KC. 

TOTAL  EVAPORATED  NASS  *  •  2  2  20  7E  *C  1  KC. 


.a«83sE-03  hETERS 


RATE  OF  EVAPORATION  .  .26372E-C2  K C/ t S E C- SO . N  .  ) 

TOTAL  OISSOLVEO  NASS  -  .6E019E-C3  KC. 

RATE  OF  0IS5QLUTICN  •  .88680S-C6  K C / I SE C- SO . N . ) 


TOTAL  NASS  -  .219S2E*C2  KC.! 


THE  CENTER  OF  Tm€  SLiCK  IS  LOCATED  Al  A  •  .38086E»01  N£TERS  *NQ  V  •  C-  “ E  1 E  R 


JINE  -  1.00  NINUIES  20.070  SECUNOS 

THICK  SUCK  AREA  .  .38263E*02  SO.H.  THICK  SUCK  THICKNESS  *  .8769/E-03  hETERS 

TOTAL  NASS  OF  THICK  SUCK  •  .193876*02  KC. 

TOTAL  EvapORATEO  NASS  -  .2S9nSE*C1  KC. 

RATE  OF  EVAPORATION  *  .2637'E-OE  K C / I S E C- SO . N . ) 

TOTAL  OISSOLVEO  NASS  -  .8376>E-C3  <G. 

RATE  OF  0IS50LUTICN  •  .88680E-C6  KC / I SE C- SU .N . ) 


TOTAL  N»SS 


. 2 1982E *C2  KC . 


THE  CENTER  OF  THE  SLICK  I S  ICCaTEO  AT  t 


.  7  7  /£  *0  1  Nf  If  n  S  »  NO  r 


U  £«' 


the  run  time),  the  instantaneous  model  is  changed  to  the  open-water  case, 
and  the  slick  is  assumed  to  be  circular  subsequently. 

Input  for  Demonstration  Case  No.  3  is  shown  in  Table  VI. 4a.  For  this 
case,  the  current  is  non-zero  and  its  x  and  y  components  are  input  at  the 
fourteenth  prompt.  Also,  the  chemical  properties  are  input  separately,  rather 
than  taken  from  the  data  for  the  twenty  chemicals  included  as  samples  in  the 
model.  Sample  output  is  shown  in  Table  VI. 4b.  The  change  in  the  form  of  the 
output  should  again  be  noted  when  the  discharge  stops  after  30  minutes.  In 
this  example,  the  shape  of  the  slick  is  such  that  the  instantaneous  model  is 
immediately  assumed  to  be  the  open  water  case;  the  slick  spreads  symmetrically, 
and  the  radius  of  the  thick  slick  is  printed  out. 

Input  for  Demonstration  Case  No.  4  is  shown  in  Table  VI. 5a.  The  width 
and  depth  of  the  channel  are  input  at  the  eighth  prompt.  The  bottom  rough¬ 
ness  is  input  at  the  ninth  prompt;  the  computed  results  are  practically  inde¬ 
pendent  of  bottom  roughness  for  realistic  values  of  channel  depth,  so  the 
default  value  can  be  used  with  little  or  no  loss  of  accuracy  when  the  actual 
bottom  roughness  is  unknown.  The  wind  direction  for  a  channel  is  referred  to 
the  downstream  channel  direction  (the  fifteenth  prompt).  Sample  output  is 
given  in  Table  VI. 5b.  The  initial  printout  for  this  case  is  data  about  the 
slick  at  the  time  it  has  just  spread  across  the  entire  channel.  During  this 
first  2.09  minutes,  the  slick  is  triangular  and  the  leading  edge  moves  down¬ 
stream  at  a  speed  equal  to  Uy;  see  Equation  (III. 17).  After  the  slick 
extends  across  the  entire  channel,  the  spreading  is  one-dimensional,  and  the 
leading  edge  is  transported  downstream  at  a  speed  equal  to  a  combination  of 
Uy  and  the  gravitational  spreading  velocity.  Further,  at  the  time  the 
models  are  switched,  the  area  of  the  triangular  slick  is  assumed  to  be  in¬ 
stantaneously  spread  uniformly  across  the  channel  width.  For  these  reasons, 
there  is  a  small  discrepancy  at  the  switch-over  time  in  the  position  of  the 
leading  edge  of  the  slick.  (The  discrepancy  is  not  apparent  in  the  printout 
because  of  the  long  time  between  the  first  2.09  minutes  and  the  first  of  the 
regular  printouts  at  15  minutes.)  Note  that  after  the  discharge  stops  at  60 
minutes,  the  printout  form  changes  and  the  slick  moves  bodily  downstream. 


TABLE  VI. 4a  INTERACTIVE  INPUT  FOR 
DEMONSTRATION  CASE  NO.  3 


ENTER  THE  TITLE  FOR  THIS  RUN.. 

?  DEMO  NO.  3 

INPUT  THE  AMBIENT  TEP'ERATURE  IN  CELSIUS. 

?  20 

INPUT  THE  BAROMETRIC  PRESSURE  IN  MILLIBARS 
OR  ZERO,  9,  FOR  THE  STANOARD  SEA  LEUEL  PRESSURE 
OF  1013.25  MB. 

?  8 

INPUT  THE  TIME  INCREMENT  IN  SECONDS.  TRY  1.0. 

?  1. 

INPUT  THE  DESIRED  RUN  TIME  ’.I  MINUTES 

7 

INPUT  MINIMUM  ALLOWABLE  THICKNESS  OF  THICK  SLICK  IN  METERS 
?  l.E-4 

INPUT  THICKNESS  OF  THIN  SLICK  IK  METERS. 

7  l.E-4 


XXXXXXXXXXXXXXXXtXXXtXXtttttXX 
t  WATER  BODY  DESCRIPTION  X 
txxxtxttxxtttxxtttxxxxttxxxxtx 

IS  SPILL  IN  RIUER  OR  CHANNEL7  Y/N 
7  N 

IS  IT  A  LAKE7  Y/N 
?  Y 

IS  IT  A  CIRCULAR  LAKE7  Y/N 
?  Y 

GIUE  THE  RADIUS  AND  DEPTH  OF  THE  CIRCULAR  LlAKE 

< UH I T  :  METER) 

7  20000, 180 

IS  THERE  CURRENT7  Y/N 
7  Y 

IS  CURRENT  CONSTANT7  Y/N 

?  Y  | 

INPUT  CONSTANT  CURRENT  SPEED  UCX  AND  UCY 

(UNIT  :  METER/SEC) 

7  8.5,8. 1 

IS  THERE  WIHD  IH  THE  AREA  7  Y/N 
7  Y 

IS  WIND  SPEED  CONSTANT?  Y/N 
7  Y 

INPUT  WIND  SPEED  (METER/SEC)  AND  DIRECTION 

ANGLE  (DEGREES) 

7  3. ,30 

IHPUT  MEAN  WAUE  HEIGHT. (METER) 

DEFAULT  UALUE  (£0.011.32)  OF  REPORT)  IS  USED 

BY  INPUTTING  -I.  I 

7  .5 

GIUE  SPILL  COORDINATES  X  AND  Y,  IN  METERS 

7  0,0 

txtxitttttttxttttttt 
X  SPILL  TYPE  * 

XXtittXXXitXXXitttXX 

HE  HAUE  STANDARD  PROPERTIES  FOR  THE  FOLLOWING  CHEMICALS 


1. 

ALLYL  CHLORIDE 

2. 

flENZENF 

3. 

BUTADIENE  (1,2) 

4. 

BUTYL  ACETATE  (ISO) 

5. 

BUTYL  MERCAPTAN  (N) 

6. 

CHLOROBUTA- 1 -3-DIENE 

7. 

CYCLOHEXANE 

0. 

CYCLOHEXEHE 

TABLE  VI. 4a  (CONTD) 


9.  01 PROPYL  ETHER  (ISO) 
11.  ETHYL  MERCAPTAN 
13.  HEXANE  (N> 

15.  NONANE  (N> 

17.  PENTANE 

19.  TR INETHYLBENZENE 


10.  ETHYL  CHLORIDE 
12.  HEPTANE  <N> 

14.  METHYL  CYCLOHEXANE 
16.  OCTANE  (N> 

18.  TOLUENE 
20.  XYLENE  (M) 


ENTER  THE  NO.  YOU  HAHT  OR 

NEGATIUE  UALUE  -  IF  YOU  WANT  TO  INPUT  THE  PROPERTIES 
99  -  IF  THE  CHEMICAL  IS  HOT  ON  THE  LIST 


ENTER  ITS  DENSITY  IN  KG/CU  M. 

?  800 

INPUT  ITS  MOLECULAR  WEIGHT  IN  KG/#G-MOLE. 
?  114.32 


ENTER  DIFFUSION  COEFFICIENT  OF  UAPOR  IN  AIR  IN  SQ  M/SEC. 

?  5.8E-6 

ENTER  DIFFUSION  COEFFICIENT  OF  LIQUID  IN  HATER  IN  SQ  M/SEC 
?  6.38E-9 


IS  PU  (UAPOR)  1.  A  NUMBER  OR  2.  A  FORMULA? 

?  1 

ENTER  CONSTANT  PU 
?  1391.74 

INPUT  THE  S0LU8ILITY  LIMIT  OF  CHEMICAL  IN  WATER  (KG/CU.M.) 

?  .02 

INPUT  (1)  CHEMICAL/AIR  INTERFACE  TENSION  AND 
(2)  WATER/CHEMICAL  INTERFACE  TENSION 
UNIT  :  HEWTGN/M. 

?  2. 1618E-2 
?  5.08E-2 

BAROMETRIC  PRESSURE  .*  1013.230  MILLIBAR 


TEMPERATURE  : 


20.000  DEGREES  C 


CHEMICAL  NAME  IS.’ 


CHEMICAL  DENSITY  *  800.00  KC/CU.M. 

MOLECULAR  WEIGHT  *  114.320  KG/KG-MOLE 

DIFFUSION  COEFF  (AIR)  *  .58000E-05  SQ.M. /SEC 

DIFFUSION  COEFF  (WATER)  *  . 63800E-08  SQ.M. /SEC 

CHEMICAL  UAPOR  PRESSURE  *  1391.74  NEWTON/SQ.M. 


SOLUBILITY  IN  HATER 


,82  KG/CU.M. 


THE  INTERFACE  TENSION  WRT  AIR  IS  .21618E-01  NEWTON/M. 
THE  INTERFACE  TENSION  WRT  WATER  IS  .50000E-01  NEWTON/M 


IS  SPILL 
2 


THE  SPREADING  COEFFICIENT  IS  . 34200E-03  NEWTON/M. 

1.  INSTANTANEOUS  OR  2.  CONTINUOUS? 
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INPUT  THE  RATE  OF  DISCHARGE  (CU.M. /SEC) 

?  .8333 

INPUT  THE  TOTAL  DURATION  OF  SPILL  IN  MINUTES 
?  30. 


INPUT  THE  PRINTOUT  TIME  STEP  IN  MINUTES. 

?  10. 


■»■>! 


■  »  % 

.'.S’, 


r*i 


TABLE  VI. 4b  SAMPLE  COMPUTED  OUTPUT  FOR 
DEMONSTRATION  CASE  NO.  3 


spreading  pooel  quiput 


THICK  SLICK  HAS  SPREAD  QV-E  fi  AN  ELCNCATEC  TRIANGULAR  Ufl  CF  .2190?E*0* 

SduARE  PETERS  AFTER  A  TIPS  OF  .i“>  16  I6»0l«  InuTES  . 

Th€  Thick  SUCK  LEAOINC  ECGE  IS  .W17S£»02  PETERS  «10E  ANO  is  .928<)7E*02  PETERS 

OOMNSTREAK. 

THE  THIN  SLICK  AREA  IS  EQUAL  TO  .17S2AE*0->  SQUARE  PETERS. 


TIKE  •  10.00  PJNUTES  .160  SECONOS 

Thick  SLICK  AREA  *  .1V986*CS  SO.P.  THICK  suck  thickness 

THICK  SLICK  OChnSTREAH  pIOTH  •  .<ns32E*02  PETERS 

thin  suck  area  -  u^n;*e»os  so.k. 

Thin  SLICK  OOkNST  RE  ap  nIUTH  •  .12  2  7K £  »0  3  PETERS 


.112S8E-02  PETERS 


TOTAL  PASS  OF  THICK  SUCK 
TOTAL  EVAPORaTEO  PASS 
RATE  OF  EVAPORATION 
TOTAL  DISSOLVED  PASS 
RATE  CF  DISSOLUTION 
TQTAL  PASS  OF  THIN  SLICK 


.  1  3  7  7PE»C5  KG. 

•  M707E.C)  KC. 

.1116  1  E--0  3  <C/I  S£C-SC.P.  » 
.MULE-'CO  KG. 

.IP60UE-C6  <0/ < SEC-SO.P . ) 

•  1 798  2 E ♦ C A  KG. 


TOTAL  PASS 


-  ,1S9PRE*CS  KG. 


THE  LE  AO  ING  ECCR  OF  TnE  SUCK  IS  LOCATED  AT  <  ■  .)EA66E»‘j3  PETERS  AND 

t  •  .91S28E*U2  PETERS 

THE  TRAILING  EOGE  OF  THF  SUCK  IS  LOCaTeO  AT  TH*  SPILL  C»IOIN 


T I  pE  ■  20. OC  PINUTES  .IE8  S6CCNCS 

THICK  SUCK  AREA  •  U'HJTCUS  SO.K.  THICK  SLICK  THICKNESS 
THICK  SUCK  OO-NSTRfA*  UOTh  •  ,l0i8Ec*03  PETERS 

Th|N  SUCK  AREA  •  ,29922f*0S  SC.R. 

THIN  SUCK  OCkNSTOEa-  «|:jTh  .  .6 170SS*u2  PETERS 


,H?A2lE-03  PETERS 


TOTAL  PASS  OF  Thick  SLICk  • 
TOTAL  EVAPORATEO  PASS 
RATE  CF  EVAPORATION 
TOTAL  OlSSOLVEO  PASS 
RATE  OF  DISSOLUTION 


.2 7369E.C5  KG. 

*  2 20 / 3E  *0 P  K C . 

. 1 1 161E-C 3  KG/ISEC-SC.P. ) 
•286S9S  »C  1  <G. 

.1P6C8E-C6  KG/ CSEC-SC. P. ) 


TOTAL  PASS  OF  Thin  SLICK  .  ,23938E*CP  KG. 


TOTAL  pass 


•  .31972£*CS  KG. 


THE  LEADING  ECCE  CF  THE  SUCK  IS  L  OC  A  T  f  0  AT  X  •  ,7C922E«03  PETERS  anO 

T  •  .la303E*D3  PETERS 

THE  TRAILING  EDGE  CF  THE  SUCK  IS  LOCATED  »T  THE  SPILL  CRICIN 


169 


i 


TABLE  VI. 4b  (CONTD) 


TIhE  ■  30.00  hinlTES  .168  SECONDS 

Thick  slick  Aifi  ■  .ae<i6S6»OS  SO.".  Thick  SLICK  THICKNESS  •  .  736NNE-03  he  TEAS 

THICK  SLICK  OChNSTREA-  kIOTH  -  .1310CE*03  HETERS 

THIN  SLICK  AREA  .  .3aE6l£‘0S  S  0  .  K  . 

thin  SLICK  OCkNSTREAH  KICTH  .  .fc9e53E.03  HETE»S 

TOTAL  "ASS  ce  thick  SLICK  .  .391S8f»CS  KC. 

TOTAL  EVAPORATEO  "ASS  ■  .S7303E.CL  KC. 

sate  CE  EVAPORATION  -  .1U61E~0  K  C/ I  SEC- SC.  p  .  ) 

TOTAL  CISSOLVEO  HASS  ■  .?*996E.C1  KC. 

SATE  CE  DISSOLUTION  ■  .lN6CaF-C6  KG/tSEC-SC.H.) 

total  HASS  OE  thin,  slick  •  . 3  C  6C9E ♦ C  N  KC. 


TOTAL  HASS  *  .n?rs&£.C5  KC. 


THE  LEAOINC  EOCE  CE  The  SLICK  IS  LOCATED  AT  t  -  .1C638E«0n  HETERS  ANC 

T  -  .7TN53EH03  hETESS 

THE  TRAIL] NC  EOCE  OE  THE  SLICK  IS  LOCATED  AT  THE  SPILL  CRICIN 


TIHE  ■  NO.OC  hincTEJ  .168  SECCNOS 

THICK  SLICK  AREA  .  .6  30  3SE  *  CS  SC.'.  THICK  SLICK  THICKNESS  -  .68I18E-03  kETERS 

Thick  SLICK  RAOIUS  •  .1N3SSE.C3  HETERS 

TOTAL  HASS  CE  THICK  SLICK  -  . 3n787E.CS  kC. 

total  EVAPORATEO  Hass  •  . 100HnE.CS  KC. 

SATE  JE  EVAPORATION  •  . 1 1 16 1 £-0  3  K C/ I SE C- SC . P . I 

TOTAL  OISSOLVEO  HASS  -  .13313E*C3  KG. 

SATE  OE  DISSOLUTION  .  .In*08E-C6  k C/ 1 SE C- SC . • . ) 


TOTAL  HASS  .  .nn696E*CS  KC. 


THE  CENTER  CE  the  SLICK  IS  LOCATEC  AT  »  •  .1C637E.CN  HETERS  AND  T  •  .37N57E.03  »ETE»S 


TIHE  *  SO. 00  "INCITES  .168  5EC0N0S 

thick  slick  area  .  ,607nre«os  so.h.  thick  suck  thickness  -  .6397Sc-03  heterj 

THICK  SLICK  RAOIUS  •  .13906E.03  HETERS 

TOTAL  "ASS  OE  THICK  SLICK  »  .  30607E»OS  KC. 

TOTAL  EVAPORATEO  HASS  *  .1N7T0EHCS  KC. 

RATE  OE  EVAPORATION  .  .IU61E-C3  KC  /  I  SE  C- SO  . "  .  I 


TOTAL  OISSOLVEO  HaSS  •  .  1  867eE»C7  KC. 

RATE  OE  DISSOLUTION  .  .lNeC8E-CE  KC / t SE C- SO  . H  .  ) 


TOTAL  HASS  •  •NN896E.CS  KC. 


THE  CENTER  OE  THE  SLICK  IS  LCCATEO  AT  j  •  ,INI(3E*CN  HETERS  ANO  T  •  .366C3E«C3  HE1EPS 


tihe  •  6C.oo  hinutes  .168  seconds 

Thick  suck  area  •  .S7J7IE.OS  so.h.  thick  SUCK  Thickness  •  .S8163E-03  "6TERS 

Thick  suck  RAOIUS  •  .  135036*03  "ETE85 

TOTAL  HASS  Of  thick  SUCK  ■  .  366N  66  •  OS  KC. 

total  EVAPORATED  HASS  .  .18373EH05  KC. 

KATE  Cf  EVAPORATION  •  .U161E-C3  KC  /  (  SE  C- SO  .  H  .  I 

TOTAL  OISSOLVEO  HASS  •  .3385IE.C7  KC. 

RATE  Of  DISSOLUTION  .  .IN606E-C6  KC/ ( 5EC-S0 .H . I 


TOTAL  HASS  •  .NN896f»05  KC. 


THE  CENTER  Of  THE  SUCK  IS  LOCATEC  AT  t  •  ,i  7  779E»Cn  HETERS  ANO  V  -  ,NS  757E*03  PETE'S 
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TABLE  VI. 5a  INTERACTIVE  INPUT  FOR 
DEMONSTRATION  CASE  NO.  4 


ENTER  THE  TITLE  FOR  THIS  RUN.. 

?  DEMO  HO.  4 

INPUT  THE  AMBIENT  TEMPERATURE  IH  CELSIUS. 

?  20 

INPUT  THE  BAROMETRIC  PRESSURE  IN  MILLIBARS 
OR  ZERO,  0,  FOR  THE  STANDARD  SEA  LEVEL  PRESSURE 
OF  1013.25  MB. 

?  0 

INPUT  THE  TIME  INCREMENT  IM  SECONDS.  TRY  1.8. 

?  1. 

INPUT  THE  DESIRED  RUN  TIME  IN  MINUTES 

?  120. 

INPUT  MINIMUM  ALLOWABLE  THICKNESS  OF  THICK  SLICK  IN  METERS. 
?  l.E-4 

INPUT  THICKNESS  OF  THIN  SLICK  IN  METERS. 

?  l.E-4 
•  • 


tttttxtttttttt  tttttttttttttttt 

*  WATER  BODY  DESCRIPTION  * 

xttttttttttttttttttttttttttttt 

IS  SPILL  IN  RIUER  OR  CHANNEL?  Y/N 
?  Y 

GIVE  THE  WIDTH  AND  DEPTH  OF  THE  CHANNEL  (IN  METERS) 
?  30,10 

INPUT  THE  BOTTOM  ROUGHNESS (METERS)  OF  THE  CHANNEL. 
INPUT  ZERO,  0  IF  YOU  WANT  TO  USE  THE  DEFAULT  VALUE. 
?  0 

IS  THERE  CURRENT  IN  THE  CHANNEL?  Y/N 
?  Y 

IS  IT  TIDAL  CURRENT?  Y/N 


CURRENT  SPEED  MUST  8€  CONSTANT. 
INPUT  CURRENT  SPEED  METER/SEC 
?  1. 

IS  THERE  HIND  IN  THE  AREA  ?  Y/N 
?  Y 


IS  WIND  SPEED  CONSTANT?  Y/N 
?  Y 


INPUT  WIND  SPEED  (METER/SEC)  AHD  DIRECTION 
ANGLE  (DEGREES) 

?  3., 133. 


mtmmmmmi 

*  SPILL  TYPE  * 

WE  HAVE  STANDARD  PROPERTIES 


1.  ALLYL  CHLORIDE  2. 

3.  BUTADIENE  (1,2)  4. 

5.  BUTYL  MERCAPTAN  (N>  6. 

7.  CYCLOHEXANE  8. 

9.  DIPROPYL  ETHER  (ISO)  10. 

11.  ETHYL  MERCAPTAN  12. 

13.  HEXANE  (N)  14. 

13.  NONANE  (N)  16. 

17.  PENTAHE  13. 

19.  TRIMETHYLBENZENE  20. 


FOR  THE  FOLLOWING  CHEMICALS 


BENZENE 
BUTYL  ACETATE  (ISO) 
CHLCR08UTA- l -3-DIENE 
CYCLOHEXENE 
ETHYL  CHLORIDE 
HEPTANE  (N) 

METHYL  CYCLOHEXANE 
OCTANE  (N) 

TOLUENE 
XYLENE  (M) 


ENTER  THE  NO.  YOU  WANT  OR 

NEGATIVE  VALUE  -  IF  YOU  WANT  TO  INPUT  THE  PROPERTIES 
99  -  IF  THE  CHEMICAL  IS  HOT  ON  THE  LIST 

171 


?  16 


TABLE  VI. 5a  (COflTD) 


nV 

i 


,V. 


’*X 


f* 

£ 

& 

a 

,s'j 

S’! 

vV. 


BAROMETRIC  PRESSURE  .*  1013.230  MILLIBAR 

TEMPERATURE  :  20.000  DEGREES  C 


CHEMICAL  NAME  IS:  OCTANE  <N> 

CHEMICAL  DENSITY  =  703.00  KG/CU.M. 

MOLECULAR  HEIGHT  =  114.232  KG/KG-MOLE 

DIFFUSION  COEFF  (AIR)  =  .58000E-05  SQ.H./SEC 

DIFFUSION  COEFF  (HATER)  =  .63800E-89  SQ.M. /SEC 

CHEMICAL  UAPOR  PRESSURE  =  1391.74  NEWTON/SQ.M. 

SOLUBILITY  IN  HATER  =  .02  KG/CU.M. 

THE  INTERFACE  TENSION  HRT  AIR  IS  .21618E-01  NEHTON/M. 
THE  INTERFACE  TENSION  HRT  HATER  IS  .50800E-01  NEHTON/H. 

THE  SPREADING  COEFFICIENT  IS  .34180E-03  NEHTON/M. 

IS  SPILL  1.  INSTANTANEOUS  OR  2.  CONTINUOUS? 

?  2 

INPUT  THE  RATE  OF  DISCHARGE  (CU.M. /SEC) 

?  .  1 

INPUT  THE  TOTAL  DURATION  OF  SPILL  IN  MINUTES 
?  60. 

INPUT  THE  PRINTOUT  TIME  STEP  IN  MINUTES. 

?  15. 
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TABliE  VI. 5b  SAMPLE  COMPUTED  OUTPUT  FOR 
DEMONSTRATION  CASE  NO.  4 


spreading  hqoel  output 


* 


THICK  SUCK  HA  S  SPREAD 
SOU  48  £  HETERS  4£T£R  4 
iHfc  SUCK  L  E  A  C  1  N  G  £CC£ 


!  ACROSS  Im£  CHANNEL  "IDTH  ANC  CCVfBS  AN  A  &  £  A  C£ 
ri«l  G£  .20938£*0i  “IhUTES. 

IS  . 1 1 130£  *0  3  PETERS  CQRNSTREAH. 


.290?5£*06 


TICE 


15.00  KINUTfS 
THICK  SLICK  Afi  £  a  - 
THIN  SLICK  AREA  - 


.626  SfCCNOS 

.629n9E*05  SO.  THICK  SLICK  THICKNESS 
.23265E*05SC.n. 


total  hass  of  Thick  suck 
total  £  V  aP  OR  a  T  EiC  haSS 
RATt  C£  EvaPORaUICn 
TOTAL  C  1  S SOL  V E Oi  HASS 
RATE  OF  DISSOLUTION 
TOTAL  "ASS  OF  THIN  SLICK 


.58259£*c5  kc. 

. 3A025E  *04  KG. 

•  1  3606  E  -C  3  kg/(S£C-SC.h.) 
.16999E-C2  KG. 

.6  7966E- 06  K  G/ I  S£  C- SC.  P  .  I 
.16355f*06  KC. 


.131656-02  HETERS 


TOTAL  "ASS 


.6331n£*C5  KC. 


T  I  "6 


THE  L  £  AO  INC  EDGE  OF  THE  SLICK  IS  LOCATED  AI  «  .  .  12 5906 »0 N" E T EB S 

the  trailing  edge  of  the  slick  is  located  at  *  •  o.  hetebs 


30.00  "INDIES  .626  SEC0N0S 

thick  SLICK  AREA  -  ,13NaiE«0t  SQ.H.  THICK  SUCK  THICKNESS  -  .  1  1538E-02  "ETEBS 

ThIN  SLICK  AREA  -  . 2  32  7  1  £ *05 S Q . H . 


TOTAL  "ASS  OF  THICK  SUCK 
TOTAL  EVaPOPaTEO  HASS 
RATt  OF  EVAPORATION 
total  CISSOLVEC  HASS 

RATt  OF  OISSOLLTION 
total  HASS  OF  THIIN  SUCK 


TOTAL  rASS 


.  1  09  35t  *06 
. I  552  At *C5 
. 1 3606E-03 
.  ?  T562E  *02 
.6  79666-06 
.  1  1  359 E  ♦  C  6 


KG. 

KG. 

KG/ ( SEC-SC.H. 1 
KC. 

KG/TSEC-SO.H.J 

KG. 


.  1 2668E  *06  KG. 


THE  LEaOInC  tCGf  CF  THE  SLICK  IS  LOCATED  AT  X  -  . 2t 962E *0 TE R 5 
THE  Trailing  EDGE  OF  THE  SLICK  IS  LOCATED  AT  >  .  0.  "ETEBS 


T  I  HE 


60.00  HlNUliS 
THICK  SLICK  ARfl  • 

thin  slick  are*  - 


.626  SfCCNOS 

.269926*06  sc.",  thick  slic*  thickness 

.  2  32826  *05SC.“. 


TOTAL  HASS  OF  Thick  Slick 
TOTAL  EVAPORATED  HASS 
RITE  CF  EVAPORATION 

total  OISSOLVED  h ass 
rate  of  OISSOLUTICN 
TOTAL  HASS  OF  THIN  ,L1CK 


. i es  79e ♦ Ce 

,  6  5  36  9€  *05 
.  I  IKUAT  -C  3 
.  1266i)E*C3 
.6 7966E-C6 
.  I  6  36  7E  *0A 


■SC.K 


KG. 

K  G  . 

K  G/ <  SE  C 

K&. 

KG/ I  SEC-  SO. H 
<  G  . 


I 

I 


.  9/9  1  2E  ->)  3  -£  TF  BS 


TOTAL  HASS 


.2611/6*06  <1. 


THE  LEADING  tOGt  |UF  THE  SLICK  IS  LOCATE')  M  '  • 

THE  TRAILING  EOCt!  Of  THE  SLICK  IS  LOCATE)  *1  *  * 


.  5  398aE  *Oa"I  TERS 
0.  -FTERS 
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TABLE  VI. 5b  (CONTD) 


r i pe  •  75. oc  kinutes 

thick  slick  abea  - 


.sen  SfCCNCS 

,EAU05c*06  S  0  .  a  , 


thick  slick  thickness  •  .  n  7  *a  7*.e-o  3  aete»s 


TOTAL  HASS  CF  THICK  SL ICK 
TOTAL  EKAPOBATEO  HASS 
BATE  CF  EVAPOBATICN 
TOTAL  DISSOLVED  HASS 
BATE  CF  DISSOLUTION 


.  IS  l«Sf *Ct  KG. 

.;7»soe»cs  <c. 

.13EUAE-C3  KC/I SEC-SC.H.  I 
,AdS3d£*C3  KG. 

.N7«3N6f-C6  <C/tScC-Sa.».l 


TOTAL  BASS 


"  .ESIaSEaCE  <G, 


THE  .hCLE  SLICK  has  hUvEO  .  35  3 E  AE  «0  APE  T E »  S 

THE  JOanSTBEaK  EOGE  OF  THE  SLICK  IS  AT  •  .fcOEESF ♦OA  -EIE^S  AND  ThF  lPSTBEA*  EDGE  IS  AT 


10a  l  9E  *Oa  HfTEBS 
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Input  for  Case  No.  5,  a  continuous  spill  in  an  irregularly-shaped 
lake  with  a  current  that  is  a  function  of  both  position  and  time,  is  shown 
in  Table  VI. 6a.  Figure  VI. 1  shows  the  lake  graphically  us  well  as  the 
currents  in  the  3x3  grid  at  the  instant  the  spill  occurs.  As  shown  in 
Table  VI. 6a,  the  shape  of  the  lake  is  specified  (beginning  at  the  twelvth 
prompt)  by  ten  pairs  of  x,y  coordinates.  The  coordinates  should  be  input 
in  counterclockwise  order,  starting  with  the  point  having  the  smallest 
x-coordinate.  (An  arbitrarily-shaped  coast  should  also  be  input  starting 
with  the  smallest  x-coordinate.)  The  x-coordinates  of  the  current  grids 
are  input  as  a  group,  starting  with  the  smallest  value  (which  must  equal 
the  smallest  x-coordinate  of  the  lake)  and  ending  with  the  largest  value 
(which  must  equal  the  largest  x-coordinate  of  the  lake).  Likewise,  the 
y-coordinates  of  the  grid  are  input  as  a  group,  and  the  largest  and  smallest 
coordinates  must  satisfy  similar  conditions.  Next,  the  x  and  y  compo¬ 
nents  of  the  current  in  each  of  the  nine  boxes  of  the  grid  are  input. 

Since  the  current  has  been  specified  as  a  function  of  time  in  the  input, 
the  x  and  y  components  must  be  input  ten  times,  one  for  each  of  the  ten 
instants  of  time  that  are  input  after  the  currents  are  given.  The  smallest 
time  value  must  be  zero,  and  the  largest  must  be  at  least  as  large  as  the 
run  time.  Sample  output  is  shov/n  in  Table  VI. 6b.  When  the  leading  edge  of 
the  slick  moves  from  grid  to  grid,  the  transport  velocity  varies  and  the 
slick  will  be  predicted  to  bend  and  kink.  (In  this  example,  the  continuous 
spill  ends  before  the  leading  edge  moves  out  of  the  original  grid.)  Al¬ 
though  the  correct  value  of  Uy  is  used  to  compute  the  incremental  change 
in  the  position  of  the  leading  edge  during  the  next  integration  time  step 
(Equation  (III. 38)),  the  shape  of  the  entire  slick  behind  the  leading  edge 
is  not  adjusted  to  account  for  the  new  value  of  the  time-varying  current; 
that  is,  when  the  current  varies  in  time,  the  position  of  the  entire  slick 
is  not  updated,  only  the  leading  edge  is.  Otherwise,  the  calculations  are 
similar  to  a  case  when  the  current  is  constant. 


175 


TABLE  VI. 6a  INTERACTIVE  INPUT  FOR 
DEMONSTRATION  CASE  NO.  5 


ENTER  THE  TITLE  FOR  THIS  RUN.. 

?  DEMO  NO.  5 

INPUT  THE  AMBIENT  TEMPERATURE  IN  CELSIUS. 

■>  20 

INPUT  THE  BAROMETRIC  PRESSURE  IN  MILLIBARS 
OR  ZERO,  0,  FOR  THE  STANDARD  SEA  LEUEL  PRESSURE 
OF  1013.25  MB. 

?  0 

INPUT  THE  TIME  INCREMENT  IN  SECONDS.  TRY  1.0. 

?  1. 

INPUT  THE  DESIRED  RUN  TIME  IN  MINUTES 
?  240. 

INPUT  MINIMUM  ALL0HA8LE  THICKNESS  OF  THICK  SLICK  IN  METERS. 
?  l.E-4 

INPUT  THICKNESS  OF  THIN  SLICK  IN  METERS. 

»  l.E-4 


xxxxxxxxxxxzxxxxxxxxxxxxxxxxxx 

X  HATER  BODY  DESCRIPTION  X 

xxxxxxxxxxxxxxxxtxxxxxxxxxxxxx 

IS  SPILL  IN  RIUER  OR  CHANNEL?  Y/N 
?  N 

IS  IT  A  LAKE?  Y/N 
?  Y 

IS  IT  A  CIRCULAR  LAKE?  Y/N 
?  N 

IS  IT  A  RECTANGULAR  LAKE?  Y/M 
?  N 


THE  SPILL  IS  IN  A  LAKE  WITH  ARBITRARY  SHAPE. 

DESCRIBE  THE  SHAPE  HITH  10  PAIRS  OF  X,Y  COORDINATES  (METERS).  (0,0)  SHOUL 
D  8E  HEAR  THE  SPILL  SITE. 

?  -4500. ,0. 

?  -3508,-3000. 

?  -1008. ,-4000. 

?  0. ,-5000. 

?  2008., -4000. 

?  4000., -2000. 

?  5000., 500. 

7  4000., 2000. 

?  1080., 3500. 

?  -3000., 3800. 


X 

1  -. 45000E+04 

2  -. 35000E+84 

3  -. 10800E+04 

4  0. 

5  . 20800E+04 

6  . 40000E+04 

7  . 58000E+04 

8  . 40009E+04 

9  .  1 0990E  +  04 

10  -.  30980E  +  04 


Y 

0. 

-. 38009E+04 
-.40000E+04 
-. 500A8E+04 
-.■40800E+04 
-.,29060E+04 
. 50000E+03 
.2'Afe',E  +  04 
.3  "*£  +  04 

.3-<,08E«-04 


INPUT  HATER  DEPTH 
?  100 
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TABLE  VI. 6a  (CONTD) 

IS  THERE  CURRENT?  Y-'N 
?  Y 

IS  CURRENT  CONSTANT?  Y^N 
?  N 

IS  CURRENT  A  FUNCTION  OF  TIME  ?  Y'N 
7  Y 

IS  CURRENT  A  FUNCTION  OF  TINE  ONLY  ?  Y/N 
?  H 


IF  A  LAKE,  THE  X,Y  CURRENT  NUST  BE  GIUEM  AT  CENTER 
OF  9  RECTANGULAR  BOXES  <3X3  GRID)  THAT  COUER  LAKE. 

IF  A  COAST,  THE  X,Y  CURRENT  MUST  BE  GIUEN  FOR  THE 

9  Y-SLICES  THAT  EXTENO  OUT  FROM  THE  10  X,Y  POINTS  DESCRIBING  THE  COAS 


GIUE  THE  4  X-COORDINATES  (METERS)  THAT  SPECIFY 
THE  HORIZONTAL  GRID.  THE  FIRST  AND  LAST  MUST 
COINCIDE  WITH  THE  LENGTH  OF  THE  LAKE. 

?  -4500. 

?  -2000. 

?  2008. 

?  5080. 

NOW  GIUE  THE  4  Y-COORD INATES  (METERS). 

THE  FIRST  AND  LAST  MUST  COINCIDE  WITH  THE  WIDTH  OF  THE  LAKE. 
?  -5000. 

?  -2500. 

?  1000. 

?  3500. 

INPUT  UX  AND  UY  CURRENTS<N/SEC)  FOR  EACH  OF  THE  9 
BOXES  OR  SLICES.  BOXES  ARE  NUMBERED  LEFT-TO-R IGHT 
1,2,3  IN  BOTTOM  ROW,  4,5,6  IN  MIDDLE  ROW,  ANO  7,8,9 
IN  TOP  ROW.  SLICES  FOR  A  COAST  ARE  NUMBERED  1  TO  9, 
LEFT-TO-RIGHT.  IF  THE  CURRENTS  ALSO  DEPEND  ON  TIME, 

YOU  WILL  BE  ASKED  FOR  10  SUCH  SETS  OF  CURRENTS. 

CURRENTS  FOR  HUMBER  1  TIME. 

?  Q.1,-0.1 

?  0.2,0. 

?  0. 1,0.1 
?  0. 05,-0. 15 
7  0.05,0. 

?  0. 05, U. 15 
7  -0. 1,-0. 1 
7  -0.2,0. 

?  -0. 1,0.1 


CURRENTS  FOP  NUMBER  2  TIME. 
7  0. 15,-0. 15 
?  0.3,0. 

?  0. 15,0. 15 
7  0.075,-0.225 
?  0.075,0. 

7  0.075,0.225 
?  -0.15,-0.15 
?  -8.3,0. 

?  -0. 15,0. 15 

CURRENTS  FOR  NUMBER  3  TIME. 
?  0.2, -0.2 
7  0.4,0. 

7  0.2, 0.2 
?  0. 1,-9. 3 
?  0.1,0. 

?  0.1, 0.3 
?  -0.2, -0.2 
?  -9.4,0. 

7  -0.2,0. 2 
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7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 


7 

7 

7 

o 

7 

7 

7 

7 

7 


7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

*> 

7 

7 


7 

-» 

7 

7 

7 

7 

7 


TABLE  VI. 6a 


CURRENTS  FOR  NUMBER 
8. 15,-0. 15 
8*  3,8. 

0. 15,0.15 

0.075,-0.225 

0.075,8. 

0.075,0.225 
-8. 15,-0. 15 
—0 .3,0. 

-0.15,0.15 


CURRENTS  FOR  NUM8ER 
0. 1.-0.1 
0.2,0. 

0.1,0. 1 
0. 85,-0. 15 
0.05,8. 

0.05,0. IS 
-0. 1,-0. 1 
-0.2,0. 

-0.1,0. 1 

CURRENTS  FOR  NUMBER 
0. 1,-0. 1 
0.2,0. 

0.1,0. 1 

0.05,-0.15 

0.05,0. 

0.05,0. 15 
-0. 1,-0. 1 
-0.2,0. 

-0.1,0. 1 

CURRENTS  FOR  NUMBER 
0. 1,-0. 1 
0.2,0. 

0. 1,8. 1 
0. 05,-0. 15 
0.95,0. 

0.05,0. 15 
-0. 1,-0. 1 
-0.2,0. 

-0.1,8. 1 

CURRENTS  FOR  HUM  iER 
0. 1,-0. 1 
0.2,0. 

0. 1,8. 1 
8. 05,-0. 15 
0.05,0. 

0.85,0. 15 
-0. 1,-0. 1 
-0.2,0. 

-0. 1,0. 1 

CURRENTS  FOR  NUMBER 
8. 1,-0. 1 
0.2,0. 

0. 1,0.  1 
0.05,-0.15 
0 . 05 , 8 . 

0.05,0. 15 
-0. 1,-0. 1 
-0.2,0. 

-0. 1,0. 1 


CURRENTS  FOR  NUMBER 
0.  1,-0. 1 
0.2,9. 

0. 1,0. 1 
0. 05,-0. 15 
0.05,0. 

0.95,0. 15 

-0. 1 , -0. 1  ]7P 

-0.2,0. 

-0. 1,0.1 


N.  V  V  %  V  %  v’-.' 


(CONTD) 

4  TIME. 


5  TIME. 


6  TIME. 


7  TIME. 


8  TIME. 


9  TIME. 


18  TIME. 


TABU  n.  6a  (CONTD) 


I 

< 


i 


i 

t 

I 


i 


NOW  ClUt  THE  TEN  TINE  INSTANTS  IN  MINUTES. 

?  0. 

7  30. 

7  60. 

?  90. 

?  180. 

7  128. 

7  140. 

7  160. 

?  200. 

?  240. 

TINE-  0.  MINUTES 

UX<M/SEC)  AND  UY<M/SEC)  IN  THE  NINE  BOXES  OR  SLICES. 


9 

1 

2 

3 

4  3 

6 

7 

8 

UX 

.10 

.10 

.28 

.10 

.03  .03 

.05 

-.10 

-.20 

UY 

.10 

-.10 

9.00  .10  -.13  0.88 

TIME-  . 30800E+02  MINUTES 

UXCK/SEC)  AND  UY<M/SEC)  IN 

.15 

THE  MINE 

-.10 

BOXES  OR 

0.00 

SLICES 

9 

1 

2 

3 

4  3 

6 

7 

8 

UX 

.13 

.13 

.38 

.15 

.08  .88 

.08 

-.13 

-.38 

UY 

.13 

-.13 

8.00 

.13 

-.23  0.80 

.23 

-.15 

0.00 

TIME-  . 60080E+02  MINUTES 


UX<H/S£C> 

AND  UYCM/SEC)  IN 

THE  NINE 

BOXES 

OR  SLICES. 

Q 

1 

2  3 

4 

3 

6 

7 

8 

y 

UX 

.20 

.20 

.40  .20 

.10 

.  10 

.  10 

-.20 

-.40 

UY 

.20 

-.20 

0.00  .20  -.38 

TIME-  .90000002 

0.00 

MINUTES 

.30 

-.29 

0.00 

UX(M/SEC> 

AND  UY(M^SEC)  IN 

THE  NINE 

BOXES 

OR  SLICES. 

1 

1 

2 

3 

4 

3 

7 

8 

UX 

15 

.15 

.30 

.  13 

.98 

.08 

.98 

-.15 

-.38 

UY 

13 

-.13 

0.90 

.13 

-.23 

9.0(i 

.23 

13 

0.00 

TIME-  . 18000E+93  MINUTES 

UX<H/SEC)  AND  UY<M/SEC)  IN  THE  NINE  BOXES  OR  SLICES. 


j 

9 

1 

2 

3 

4 

5 

6 

7 

8 

• 

UX 
.  10 

.10 

.20 

.10 

.03 

.05 

.85 

-.  10 

-.20 

UY 

.10 

-.  10 

0.00 

.19 

-.  13 

0.00 

.  15 

-.  10 

e.ee 

TIME-  . 12000E+83  MINUTES 


UX<M/SEC>  AND  UY<M/SEC>  IN  THE  NINE  BOXES  OR  SLICES. 


9 

1 

2 

3 

4 

5 

6 

7 

8 

UX 
.  19 

.20 

.  10 

.05 

.05 

.03 

-.  10 

-.20 

i 

UY 

-.  10 

0.00 

.  10 

-.  13 

0.88 

.  13 

-.  16 

0.00 
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TIME-  . 14980E+G3  MINUTES 


9 

1 

UX(H/SEC> 
2  3 

AHD  UY<H/S£C>  IH 
4  3 

THE  NINE 
6 

BOXES 

7 

OR 

SLICES 

8 

UX 

.10 

.19 

.29 

.18 

.83 

.85 

.05 

-.10 

-.20 

UY 

.10 

-.10 

0.00 

.10 

-.15 

0.00 

.  15 

-.  18 

0.00 

TIME- 

.  1S000E+03 

MIHUTES 

1 

UX<H/SEC> 

AHD  UY<M/SEC>  IH 

THE  HIHE 

BOXES 

OR 

SLICES. 

9 

3 

4 

5 

6 

7 

8 

UX 

.10 

.10 

.29 

.  10 

.03 

.03 

.05 

-.  10 

-.20 

UY 

.  18 

-.19 

0.00 

.10 

-.  15 

0.00 

.  13 

19 

0.00 

TIME- 

.20008E+03 

MIHUTES 

9 

1 

UX<M/SEC> 

2  3 

AND  UY(M/SEC)  IH 

4  3 

THE  HIHE 

6 

BOXES 

7 

OR 

SLICES. 

a 

UX 
.  10 

.10 

.20 

.10 

.03 

.93 

.83 

-.  10 

-.20 

UY 

.10 

-.If 

0.00 

.10 

-.13 

0.00 

.  13 

10 

0.00 

TIME-  .24000E*03  MINUTES 


| 

UX<M/SEC) 

AHD  UY(H/SEC)  IN 

THE  HIHE 

BOXES  OR  SLICES. 

9 

2 

c 

3 

4 

3 

6 

7 

8 

UX 

.10 

.10 

.28 

.  18 

.03 

.05 

.93 

-.  18 

-.20 

UY 

.10 

-.  10 

9.00 

.  10 

-.  13 

0.00 

.  13 

-.  18 

0.00 

IS  THERE  HIND  IN  THE  AREA  ?  Y/N 
?  Y 


IS  MI  HO  SPEED  CONSTANT?  Y/N 
?  Y 

IHPUT  MI  HO  SPEED  (METER/SEC)  AND  DIRECTION 
ANCLE  (DECREES) 

?  2.9,13 

IHPUT  HCAH  WAUE  HEIGHT. (METER) 

DEFAULT  VALUE  (EQ. < 1 1 1 . 3?)  OF  REPORT)  IS  USED 
BY  IMPUTT IMG  -l. 

*  .3 

GIUE  SPILL  COORD  I  MATE  S  X  AHD  Y,  IN  METERS 

?  0,0 

WHAT  BOX  (LAKE)  OR  SLICE  (COAST)  DOES  THE  SPILL  ORIGIN  LIE  I N? 
?  3 
1 


tttttttttttttttttttt 

t  SPILL  TYPE  * 

tmtuMmmttut 

ME  HAVE  STANDARD  PROPERTIES  FOR  THE  FOLLOWING  CHEMICALS 
1.  ALLYL  CHLORIDE  2.  BENZENE 

3.  8UTA0IENE  (1,2)  4.  BUTYL  ACETATE  (ISO) 

3.  BUTYL  MERCAPTAN  (H)  6.  CHL0R08UTA- 1 -3-DIENE 

?.  CYCLOHEXANE  8.  CYCLOHEXENE 

9.  DIPROPYL  ETHER  (ISO)  10.  ETHYL  CHLORIDE  *  . 

11.  ETHYL  MERCAPTAN  12.  HEPTANE  (N) 

180 


TABLE  VI. 6a  (CONTD) 


13.  HEXANE  (N> 

15.  NONANE  (N) 

17.  PENTANE 

19.  TR INETHYLBENZENE 


14.  NETHYL  CYCLOHEXANE 
16.  OCTANE  <H> 

18.  TOLUENE 
20.  XYLENE  <H> 


?  16 


ENTER  THE  NO.  YOU  WANT  OR 

NECATIUE  UALUE  -  IF  YOU  WANT  TO  INPUT  THE  PROPERTIES 
99  -  IF  THE  CHEMICAL  IS  NOT  ON  THE  LIST 


BAROMETRIC  PRESSURE  :  1013.230  MILLIBAR 


TEMPERATURE  :  20.000  DECREES  C 


CHEMICAL  NAME  IS:  OCTANE  <N> 

CHEMICAL  DENSITY  «  703.00  KG/CU.M. 

MOLECULAR  HEIGHT  -  114.232  KG/KG-MOLE 

DIFFUSION  COEFF  (AIR)  *  .38800E-03  SQ.M. /SEC 

DIFFUSION  COEFF  (HATER)  »  .63800E-09  SQ.M. /SEC 

CHEMICAL  UAPOR  PRESSURE  *  1391.74  NEHTON/SO.M. 

SOLUBILITY  IN  HATER  *  .02  KG/CU.M. 

THE  INTERFACE  TENSION  HRT  AIR  IS  .21618E-01  NEHTON/M. 
THE  INTERFACE  TENSION  HRT  HATER  IS  .30800E-01  NEHTON/M. 

THE  SPREADING  COEFFICIENT  IS  .34180E-03  NEHTON/M. 

IS  SPILL  1.  INSTANTANEOUS  OR  2.  CONTINUOUS? 

?  2 

INPUT  THE  RATE  OF  DISCHARGE  (CU.M. /SEC) 

7  0.03 

INPUT  THE  TOTAL  DURATION  OF  SPILL  IN  MINUTES 
7  60 

INPUT  THE  PRINTOUT  TIME  STEP  IN  MINUTES. 

7  13 
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TABLE  VI. 6b  SAMPLE  COMPUTED  OUTPUT  FOR 
DEMONSTRATION  CASE  NO.  5 


« 


S»-?£*Ol*G  "OOEL  OUTPUT 


THICK  SLICK  has  SPRfAC  Cv ti  Ah  £L  CNC  A  TE  C  TRTaHGJLAR  AREA  CE  .""67IE.O*. 
sou  ar  f  "ETe»s  aeter  a  ri*f  of  .6OS0i£»oikinutes. 

THE  THICK  SUCK  LCKCIKC  EDGE  IS  .17UR/E*03  PETERS  kICE  ANC  IS  .5</*5f.07  -eters 
OOhNS IAEA". 

THE  IHK  SLlCK  AREA  IS  EUUAL  TO  .I5736H.05  S C UAK £  »F  I  € « $ . 


TIRE  •  15.00  "INUTES  .**5  SECONDS 

thick  slick  area  «  .i7oR5E*o*  so.*.  thick  slic*  thickness  *  .73»>3oe-o7  peters 

Thick  SLICK  00«NST»EA"  kIOTH  •  .^6P11E«03  peters 


ThIN  SUCK  area  .  .)<Al"l£»05  SO.". 

TM;r  SUCK  OOkRSTREAR  k(CT"  •  .60"7C£*03  "ETERS 


TOTAL  "ASS  OE  THICK  SUCK  . 
TOTAL  EVAPORATEO  "ASS 
rate  Of  EKARORaTiCk  • 

TOTAL  OI5SOUEO  "ASS 
RATE  Of  01 SSOLuT  ICN 
TOTAL  HASS  OE  THIS  SUCK 


TOTAL  "ASS 


.7t3R9E*C5  KC. 

<50l5/£.03  KC. 

.SR  "6OE-0  A  KC/I SEC-SO.".) 
. l"169E»C0  KC. 

.757  7  36-0  KC/ISEC-SC .".» 
•  7 75l6£*C"  KC. 


.31657£"C5  KC. 


THE  LEACIKC  ECCE  CE  THE  SUCK  IS  lOCATEC  AT  X  -  .ll0t7E«03  "ETERS  AHO 

T  •  .  It  3 1  *E*07  "ETERS 

T"f  TkaILISC  ECCE  CE  THE  SUCK  IS  ICCATRO  at  The  SRIU  C»TCI*« 


TIKE  •  60.00  "IsuTES  .695  SECOHOS 

tMICk  SLICK  AREA  .  ,  l  13686  "06  SO.*.  THICK  SUCK  THICKNESS  •  .m<»7E-07  "ETERS 

THICK  SLICK  OOkNSTREA"  «IOTh  •  .6 3R70E "03  "ETERS 

THIN  SLICK  AREA  •  ,50775E«O5  50.1. 

Thin  SUCK  OCxhstrea"  kIOTh  •  ,77690E"OJ  "ETERS 


TCTal  "ASS  OE  THICK  SUCK  • 
TOTAL  EVAPORATED  "ASS 
RATE  CE  EVARORATION 
TOTAL  DISSOLVED  "ASS 
RATE  OE  DISSOLUTION 
TOTAL  "ASS  OE  THIN  SUCK  * 


TOTAL  "ASS 


,10703E*C6  <C. 

. I  5" Jl6«C5  KC. 

.0  79  7"6  f  -  C  "  KC/ISEC-SC.". I 
. " 367lE"Ol  KC. 

•7A033E-C7  KC/ I Sf C-SC.". I 
«  609 |7E  * 0 *  KC. 


.17656E»C6  KC. 


the  LEADING  EOGE  OE  THE  SUCK  IS  LOCATEO  AT  *  *  .  5  1755E*03  "ETERS  ANC 

V  •  .65731E*07  "ETERS 

THE  TRAIUNC  EOCE  OE  THE  SUCK  IS  LOCATEO  AT  ThE  SPILL  ORIGIN 


T I "E  •  75.00  "INUTES  ."05  SECONOS 

THICK  SUCK  AREA  •  ,10««8E*06  SO.".  THICK  SUCK  THICKNESS 


TOTAL  "ASS  OE  THICK  SLICK  • 
TOTAL  EVAPORATED  "ASS 
RATE  OE  EVAPORATION 
TOTAL  OISSOLVEO  "ASS 
rate  OE  DISSOLUTION 


TOTAL  "ASS 


.9019O£"C5  KC. 

.  7*76  7E  •  C  5  KC. 

.9057OE-C"  KC/ I Sf C-SO. ». I 
.6051 7  8*01  KC. 

•7«979f-C7  KC/ IS6C-S0.". I 


. 177"6E*C6  KC. 


. 17  0  7  76 -0  7  "ETERS 


THE  CENTER  OE  ThE  SUCK  IS  UCA7E0  AT  I 
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"06R1E*C3  "ETERS  ASO  r 


5979  If  .07  "E  Tf  »S 
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T|pF  •  7/5. OC  PINuTES  .888  SECONDS 

THICK  SLICk  AREA  -  *600806  *05  SO. 8.  THICK  SUCK  THICKNESS 


.70771 £-0  3  PETERS 


TOTAL  »»SS  CF  THICK  SUCK 
TOTAL  £  VAPOR*  Tf 0  PASS 
RATE  Cf  6  VAPQWAT 1  C  N 
TOTAL  OISSOLVfO  HASS 
RATE  OF  0 1 SSOLU  TICK 


.798916*05  KC. 

.9/587E*C5  KC. 

.899586-08  KC/IS6C-SC.K. 1 
.761886*0/  KC. 

./5819E-C7  KC/ (SEC-SO.K. I 


TOTAL  PASS 


,17/866*06  KC. 


ThF  CENTER  of  Th6  suck  is  LOCATEO  AT  X  -  .158116*08  PETE«S  AND  T 


.  777856  .03  86  TERS 


TIKE  -  /8C.0C  PINLTES  .888  SECGNCS 

THICK  SLICK  AREA  .  .581 916*08  SO.*.  THICK  SLICK  THICKNESS 


L  680  1  IE -0  3  PETERS 


TOTAL  'ASS  OF  THICK  SUCK 
TOTAL  EVAPORATED  PASS 
R  A  Tf  CF  EVAPORATION 
TOTAL  CISS0LV6C  PASS 
KATe  CF  DISSOLUTION 


./52/8f«C5  KC. 

.97/13f*C5  KC. 

.899886-08  kC/I SEC-SC.P. ) 
.7  7  86  76*07  KC. 

.788196-07  KC/1S6C-SC.P.) 


TOTAL  "ASS 


17/8fcE. Ct  KC. 


T h 6  CENTER  CF  THF  SLICK  IS  LOCATED  AT  >  .  . 168696*08  PETERS  anO  t  -  ./391«E*C3  PETERS 
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VII.  CONCLUSIONS  AND  RECOMMENDATIONS 


The  models  of  spreading,  evaporation,  dissolution,  and  movement  for 
spills  of  buoyant,  insoluble  chemicals  have  been  completely  reformulated 
and  now  cover  nearly  every  practical  combination  of  chemical  thermophysical 
properties,  discharge  rate,  total  volume  spilled,  and  type  of  waterway. 

Eight  experimentally-verified  models  are  now  available  that  can  be  used  to 
assess  the  hazards  of  a  floating  chemical  slick  from  an  accidental  tank 
rupture:  (1)  continuous  or  (2)  instantaneous  spills  in  a  steady  river; 

(3)  continuous  or  (4)  instantaneous  spills  in  a  tidal  river;  (5)  continuous 
or  (6)  instantaneous  spills  in  a  circular,  rectangular,  or  irregularly- 
shaped  (user-specified)  lake;  and  (7)  continuous  or  (8)  instantaneous  spills 
near  a  straight  or  irregularly-shaped  (user-specified)  coast.  The  wind  can 
be  specified  as  constant  or  time-varying  for  all  the  models,  and  the  cur¬ 
rents  for  the  lake  and  coastal  models  can  be  specified  as  a  function  of 
position  as  well  as  of  time. 

The  spreading  and  movement  models  were  adapted  from  the  best  state- 
of-the-art  models  available.  None  of  the  spreading  models  in  the  literature 
accounted  for  a  loss  of  mass,  as  would  be  caused  by  evaporation  of  dissolu¬ 
tion,  and  so,  the  available  models  had  to  be  modified  to  include  this  effect 
in  a  realistic  way.  The  final  form  of  the  models  concentrate  on  predicting 
the  dynamics  of  the  "gravity-viscous"  or  "thick  slick"  phase  of  the  spread¬ 
ing  since  that  phase  represents  the  greatest  and  most  prolonged  hazard. 

The  initial,  short-duration  "gravity-inertial"  phase  of  spreading  is  in¬ 
cluded  primarily  to  provide  the  initial  conditions  for  the  gravity-viscous 
phase.  Likewise,  the  surface  tension-viscous  or  "thin  slick"  phase  of  the 
spreading  is  included  primarily  as  a  small  loss-of-mass  term  in  the  thick 
slick  equations;  evaporation  and  dissolution  from  the  thin  slick  are  neg¬ 
lected  as  being  very  small. 

The  models  for  the  rate  of  mass-transfer  due  to  evaporation  and  disso¬ 
lution  were  developed  from  boundary  layer  theory  and  real istical ly  account 
for  the  effects  of  winds  and  currents.  It  is  recognized  that  a  boundary 
layer  model  may  not  predict  all  the  dissolution  processes  of  floating  in¬ 
soluble  chemicals  when  significant  waves  are  present,  hut  better  models  are 
not  yet  available. 
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Large  scale  instantaneous  and  continuous  spills  of  a  variety  of  chem¬ 
icals  were  used  to  establish  the  empirical  constants  in  the  spreading  models. 
The  spills,  organized  in  accordance  with  the  Test  Plan  approved  by  the  USCG, 
were  conducted  in  two  facilities — a  large  outdoor  basin,  in  which  spreading 
cxild  be  investigated  in  water  without  a  current,  and  an  indoor  channel,  in 
which  spreading  in  a  current  could  be  investigated.  Some  of  the  outdoor 
spills  employed  volatile  chemicals  in  order  to  assess  the  effects  of  evapo¬ 
ration  on  spreading.  An  environmental  wind  tunnel  and  a  wind-wave  tunnel 
were  used  to  investigate  evaporation  and  dissolution  in  detail.  A  variety 
of  different  volatile  chemicals  were  employed,  and  the  tests  were  conducted 
for  many  wind  speeds  and  wave  characteristics .  The  predictions  of  the 
spreading,  evaporation,  and  dissolution  models  were  then  compared  to  results 
of  tests  covering  a  wide  range  of  conditions  of  discharge  rate,  volume 
spilled,  winds,  currents,  and  chemical  properties.  In  all  cases,  a  generally 
close  comparison  was  found  with  the  test  results. 

Although  the  revised  models  for  the  spreading,  evaporation,  dissolu¬ 
tion,  and  movement  of  floating,  insoluble  chemicals  are  now  suitable  for  the 
Hazard  Assessment  Computer  System,  the  models  could  still  be  extended  in 
several  ways.  Chemicals  of  moderate  (but  low)  solubility  could  be  included 
by  further  development  of  the  dissolution  model  to  incorporate  such  mas; 
transfer  processes  as  droplet  entrainment  by  waves;  this  extension  would  re¬ 
quire  additional  wind-wave  tunnel  experiments  to  acquire  the  necessary 
physical  insight  and  data.  The  continuous-discharge  spreading  model  could 
be  improved  by  further  analysis  and  testing  to  make  it  applicable  to  condi¬ 
tions  of  very  low  transport  velocity  (e.g.,  wind  without  current).  All  the 
spreading  models  could  be  modified  to  incorporate  the  anomalous  behavior 
(e.g.,  lens  formation  and  slick  breakup)  observed  for  some  chemicals  for 
some  spill  conditions.  Finally,  the  long-term  movement  and  potential 
breakup  of  the  slick  in  open  wat^r  could  also  be  included  in  the  model  by 
further  research. 
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APPENDIX  A 
Physical  Properties  of  Chemicals 


Appendix  A 


PHYSICAL  PROPERTIES  0-'  CHEMICALS 


A. 1  Introduction 


Some  of  the  chemical  properties  for  spills  on  water  of  slightly  soluble 
chemicals  with  a  specific  gravity  of  lasa  than  one  were  Included  in  the  revised 
HACS  computer  model.  Several  of  these  properties,  molecular  diffuaivity  for 
example,  were  not  in  the  previous  HACS  model.  This  appendix  describes  the 
models  .of  these  physical  properties.  Tables  A.l  through  A. 4  contain  numerical 
values  of  various  physical  properties  and  their  relevant  constants  for  twenty 
chemicals  of  interest.  The  list  was  expanded  to  include  the  seven  chemicals 
in  Tables  A. 5  through  A. 7;  however,  this  latter  list  has  not  been  addad  to 
the  computer  coda.  The  physical  properties  of  air  and  water  have  also  been 
modeled,  but  they  are  not  listed  in  the  tables. 

Five  of  the  chemicals  in  Table  A.l,  butadiene  (1,2),  chlorobuta-1, 
3-diene  (2),  cyclohexene,  methyl  cyclohexane,  and  trimetnylbenrene  (1,2,3), 
are  not  in  HACS.  Two  of  these  chemicals  have  boiling  points  less  than  20°C. 
Butadiene  (1,2)  and  ethyl  chloride  have  boiling  Doints  of  10.3  and  12.2°C, 
respectively.  Butadiene  (1,2)  should  not  be  coc  used  with  butadiene  (1,3), 

HACS  code  BDI ,  which  baa  the  same  atomic  weight  jut  a  boiling  point  of  -~4.4°C. 

A.  2  Density 

The  density  of  the  chemicals  in  FACS  is  a  linear  function  of  tempera¬ 
ture  from  Poet*  (A.l] 


a,  +  ai 


A.  (1) 


where  o  is  the  density  In  gn/aa3,  t  la  the  temperature  in  °C,  and  a^ 
and  a^  4re  constants.  Since  all  chemicals  are  not  in  HACS,  another  model 
for  density  was  aelctad.  Raid,  et  al.  (A.  2]  recommend  the  following  formula 
from  Yamada  and  Gunn  (A.3). 


C  “  P0  ^ 

2/7  2/7 

0  -  (l-VT,.)^  -  (1-T/TC) 


A. (2a) 
A. (2b) 


z  -  0.29056  -  0.08775  id 


where  p0  is  the  reference  density  at  temperature  T0  in  °K,  Tc  in  the 
critical  temperature  in  °K,  and  u i  is  the  Pitser  acentric  factor.  The  neces¬ 
sary  constants  for  the  calculation  of  density  are  tabulated  in  Tables  A.l  and 
A. 5.  From  (A. 2],  the  Fitter  acentric  factor  is  defined  as 


id  -  -log  (pv/pc)  -  1 


A.  (3) 


A-l 


where  pc  la  the  critical  pressure  and  Pv  ia  the  vapor  pressure  at 
T  *>  0.7  Tc.  Values  of  at  have  bean  compiled  by  Raid,  et  al. ,  but  those 
Chat  are  not  available  can  be  eaclmaced  from  Eq.  A.  (3).  Critical  temperature 
and  pressure  are  tabulated  by  Dean  [A. 4]  and  Reid,  et  al.  [A. 2]. 

Equations  A.  (2)  are  valid  over  a  wider  temperature  range  than  the  linear 
approximation  of  Eq.  A.  (1).  A  detailed  analysis  of  the  density  data  has  not 
been  done,  but  spot  checks  Indicate  that  Eq.  A.  (1)  is  accurate  within  the 
range  of  temperatures  likely  to  be  encountered  In  the  environment.  For 
example,  the  difference  In  density  for  benzene  for  Eqs.  A.  (1)  and  A.  (2)  is  less 
than  0.2S  between  0  and  40°C.  Equations  A.  (2)  appear  to  be  In  agreement  with 
the  density  plots  for  hydrocarbons  from  Gallant  [A.5C  A.6]. 

The  reference  values  in  Tables  A.  1  and  A.  3  are  all  at  20°  C  although  two 
of  the  chemicals  will  vaporize  at  that  temperature.  The  properties  in  this 
table  were  extrapolated  to  20°C  by  the  appropriate  formulas  for  convenience. 

3  Vapor  Pressure  and  Density 

Vapor  pressure  la  required  In  the  calculation  of  &>  in  Eq.  A. (3)  and 
the  vapor  density.  From  [A.4]  and  [A.l],  vapor  pressure  is  related  to 
temperature  by 


!•«  P»  -  A-»/(t+C>  A.W 

where  A,  B,  and  C  and  constants.  The  constants  from  HACS  and  Dean  [A.4]  are 
compared  In  Table  A.2.  For  the  present,  the  constants  from  [A.4]  are  being 
used  in  the  computer  program.  Soma  differences  exist,  but  these  may  be 
attributable  to  the  temperature  ranges  of  validity  for  the  constants.  Changes 
in  units  only  affect  the  constant  A  which  is 


A-iogK  +  A'  A.  (3) 

where  K  is  the  conversion  constant.  For  example,  if  A'  is  for  p^  in 
Torr,  then  C  must  be  1333.2279  for  p^.  ta  dynes/cm^.  Values  of  A,  B, 
and  C  are  also  tabulated  by  Reid,  et  al.  [A. 2]  for  to  p?,  but  no  comparisons 
have  been  made  since  their  results  aa^t  be  converted  to  base  10  logarithm, 
log.  The  conversion  formulas  are 


A. (6a) 

A. (6b) 

where  and  8a  are  the  constants  for  the  natural  logarithm,  tn,  version 

of  Ei).  A  (4). 

The  mass  transfer  equation  for  evaporation  from  Eq.(III.19)  ia 


A  -  A,  log  e 
B  *  B#  log  e 


Jo  •  D«*  0,  u*a  (C,  -  C.) 


A. (7) 


A-2 


where  J0  Is  the  mass  transfer  per  unit  area.  Da*  is  the  Dalton  number,  Pa 
is  the  air  density,  u*«  is  the  friction  velocity  of  the  air,  and  and 
C.  are  the  vapor  concentrations  at  the  surface  and  freestream,  respectively. 
Normally,  C.  is  zero.  The  quantity  pa  C*  is  the  vapor  density  which  is  given 
by  the  perfect  gas  law 


Py  ■  M  Pv/R*  Ts 


A.  (8) 


where  M  is  the  molecular  weight  of  the  chemical  from  Table  A.l,  py  is  the 
vapor  pressure  from  Eq.  A. (4) ,  ,Ta  is  the  absolute  surface  temperature,  and 
R*  is  the  universal  gas  constant  whose  value  is  8.31432  x  107  dyne-cn/mole-°K 
from  the  D.S.  Standard  Atmosphere,  1976.  [A. 7]. 

A. 4  Diffusivity  in  Air  and  Water 

Diffuaivity  is  required  in  the  calculation  of  Dalton  number  for  the 
mass  transfer.  The  dif fusivities  in  water  and  air  are  respectively 


°w  "  (°ow  WTo> 

°a  *  <D0g  p0/T03/2)  (T3/2/p) 


A.  (9) 


A. (10) 


where  the  subscript  o  is  for  the  reference  value.  The  reference  temperature 
Tg,  and  prassure,  pQ,  ure  293.13°K  (20°C)  and  1.01325  x  10s  dynes/cm2,  respec- 
tivaly.  The  reference  values  of  the  dif fusivities  ere  listed  in  Table  A.l. 

The  experimental  dif  fusivities  of  benzene,  cyclohexane,  pentane,  and  to.-uene 
in  water,  Ibw,  are  taken  from  Witherspoon  and  Bonoli  [A. 8]  and  those  of 
benzene,  octane,  and  toluene  in  air,  D^,  are  from  Gray  [A. 9].  The  remaining 
dif fusivities  were  estimated  by  methods  described  by  Park  and  Dodge  [A.30J. 

Data  on  the  dif fusivities  In  sea  water  are  not  available. 

A* 5  Surface  and  Interfacial  Tensions 

The  surface  tension  and  the  interfacial  tension  with  vacer  for  the 
various  chemicals  are  required  in  Che  spreading  model.  The  surface  tension  of 
a  liquid  as  a  function  of  temperature  is  according  to  [A. 4] 

0oe  "  *o  "*1  c  A.  (11) 

where  a^  and  a^  are  constants  and  t  is  the  temperature  in  °C.  Values  of 
Che  constants  from  [A. 4]  are  tabulated  in  Table  A.  3.  Similar  Information 
of  the  interfacial  tensions  in  water  as  a  function  of  temperature  is  not 
available.  The  surface  and  interfacial  tensions  at  a  specific  temperature 
are  also  listed  la  Davies  and  Rideal  (A. 10],  and  Veast  and  Ascle  (A. 11]. 

An  important  parameter  in  spreading  is  the  net  spreading  coefficient 
which  is 


^  "  °wa  ~  °ow  ”  °oa 


A. (12) 


A-3 


when  Oya  Is  the  surface  cession  of,  water  or  Che  interf acial  tension  of 
water  and  air,  aQ4  is  the  surface  tension  of  the  chemical,  and  aow  is 
Che  interfacial  csnsion  of  the  chemical  with  water.  Estimates  of  the  net 
spreading  coefficient  are  listed  In  Tables  A. 3  and  A. 7. 

The  mass  transfer  equation  for  dissolution  is  similar  to  that  of 
evaporation  except  that  the  friction  velocity  and  density  are  in  water. 
From  Eq.  A. (7),  Che  mass  transfer  for  dissolution  is 


"  D»*  °w  <Cs-C-) 


A. (13) 


The  available  data  on  solubility  or  water  concentration  at  the  surface,  Cg, 
are  contained  in  Tables  A. 4  and  A. 7.  The  units  on  solubility  are  grams  of 
chemical  per  100  grams  of  water.  The  only  data  on  solubility  as  a  function  of 
temperature  are  from  Guseva  and  Parnov  [A. 12]  for  benzene,  toluene,  and 
xylene(m).  The  best  curve  fit  for  benzene  and  toluene  seems  to  be 


log  Cs  -  a0-fa1  t 


A. (14) 


whereas  the  solubility  of  xylene(m>  is  nearly  constant  between  23  and  1Q0°C. 
The  deviation  of  experimental  data  is  less  than  2Z  in  the  temperature  range 
^  C  ^  50°  C  for  benzene  and  —10  _<  t  50°  c  for  toluene.  The  remaining 
data  In  Tables  A.4  and  A. 7  are  compiled  from  [A. 4]  and  (A. 13] . 

A.  6  Properties  of  Air 

The  necessery  physical  properties  of  ilr  are  taken  from  the  U.S. 

Standard  Atmosphere,  1976.  In  particular,  air  density  and  viscosity  are 
required  in  the  Reynolds  number.  The  density  is  computed  from  the  perfect 
gas  law,  Eq.  A. (8),  where  the  pressure  and  temperature  are  the  ambient  values. 
The  molecular  weight  of  air  is  28.9644  while  standard  pressure  and  temper¬ 
ature  are,  respectively,  1.01325  x  10s  dynes/cm2  (1013.25  mb)  and  temperature 
288.15  °K  (15° C).  Viscosity  Is  computed  from  Sutherland's  formula 


U  -  B  T^/CT+S)  A.( 

where  8  is  a  constant  equal  to  1.458  x  1G~5,  s  is  Sutherland's  constant 
equal  to  110.4  and  u  ia  the  absolute  viscosity  in  Poise. 

A.  ^  Properties  of  Water 

The  density,  viscosity,  and  surface  tana leu  of  water  are  required  in 
the  spreading  model.  These  quantities  are  very  accurately  known  for  pure 
water.  The  density  of  water  from  Gildseth,  et  al.  [A. 14]  is 


p  .  i  — [  (c  —  3 . 9863 ) 2  (t-t- 288. 9414)]/ [508929. 2  (t  +  68 . 1.29t7’» ] 


+  0.011445  exp  (-374. 3/t) 


A. (16) 


A-4 


where  p  is  in  g/ml.  Equation^ A. (16)  fits  experimental  data  with  a  mean 
absolute  deviation  of  0.7  x  10“°  g/ml  for  5  <  t  <  80°c. 

The  viscosity  of  water  has  been  correlated  with  temperature  within  a 
+  0.052  average  deviation  by  Korosi  and  Fabus  [A. 15]  with  their  measurements 


log  y2Q/u  -  (A(t  -  20)  +  8(t-20)Z]/(C+t) 


A.  (17) 


for  20  <  t  _<  150° C  where  A  -  1.37023,  B  -  0.000836,  and  C  -  109.  The 

viscosity  at  20°C,  U20>  ^las  been  measured  as  0.010019  +  0.000003  Poise  by 

Swindells,  et  al.  [A. 16],  and  the  National  Bureau  of  Standards  (NBS)  has 
adopted  0.01002  as  the  standard  value.  Hardy  and  Cottington  [A. 17]  proposed 
the  following  interpolation  formula  for  their  measurements  for  0  _<  t  '  <_  40°C 


log  y  -  1301.  /  [998 . 333  +  8.1855  (t  -  20)  v  0.00585  (t-20)2] 
-  3.30233 

which  has  been  altered  to  give  the  newer  value  of  viscosity  at  20°C. 


A.  (18) 


Similar  formulas  for  the  density  and  viscosity  of  sea  water  have  not 
been  discovered  although  tabulated  values  are  available.  Cox  [A. 18]  has 
tabulated  che  specific  gravity  anomaly  of  sea  water  as  a  function  of  temper¬ 
ature  and  salinity.  The  viscosity  of  sea  water  as  a  function  of  temperature 
for  a  salinity  of  35  o/oo  has  been  compiled  by  King  [A. 19].  Cox  [A. 17]  has 
given  the  surface  tension  of  sea  water  as 


<7,-  -  75.64  -  0.144  t  +  0.0399  Cl 


A. (19) 


where  CZ  is  chlorinity  in  o/oo  and  chlorinity  and  salinity  are  related  by 


S2  -  1.805  Cl  +  0.030 


A. (20) 
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TABLE  A. 1  Properties  of  Relevant  Cheaicals  at  20°C  and  1013.25  mb 


TABLE  A. 2  Comparison  of  Constants  in  Vapor  Pressure  Equation* 
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Hazard  Assessment  Computer  System  (HACS)  Property  File  Printout  in  COS  Units  (April  1901). 

John  A.  Dean,  Lange's  Handbook  of  Chemistry.  12th  Edition  (McCraw-Hill  Book  Company,  New  York,  1979)  Table  10-8. 


TABLE  A. 3  Surface  and  Interfacial  Tensions  of  Relevant  Chemicals 
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TABLE  A. 4  Solubility  of  Relevant  Chemicals 


ChemicaJ  Name 

HACS 

Code 

Constants 

Solubility 

cs  (%) 

Temperature 

t  cc) 

ao 

al 

Allyl  Chloride 

ALC 

0.330 

25.0 

Benzene 

BNZ 

-0.82130 

0.00337 

0.175 

20.0 

Butadiene  (1,2) 

fj 

Butyl  Acetate  (iso) 

IBA 

0.600 

20.0 

Butyl  Mercaptan  (n) 

BTM 

0.06 

Chlorobuta-1, 2-diene (2) 

CRP 

Cyclohexane 

CHX 

0.015 

28.34 

Cyclohexene 

Dipropyl  Ether  (iso) 

IPE 

_  °-2 

Ethyl  Chloride 

ECL 

mm 

■ 

j  i  ■ 

Ethyl  Mercaptan 

EMC 

1.500 

■ 

Heptane  (n) 

HPT 

0.00027 

Hexane  (n) 

HXA 

0.00125 

Methyl  Cyclohexane 

HH! 

Nonane  (n) 

NAN 

0.000015 

Octane  (n) 

OAN 

0.000066 

16.0 

Pentane 

PTA 

Toluene 

TOL 

-1.57767 

0.01140 

0.045 

20.0 

Trimethylbenzene  (1,2,3) 

■■■11 

Xylene  (m) 

XLM 

0.0196 

25.0 

3  log  Cs  =  a0  +  axt 

where  Cg  is  solubility  in  g/100g  of  HiO,  and  t  is  temperature  in  °C 
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TABLE  A. 5  Properties  of  Chemicals  with  High  Spreading  Coefficients 


John  A.  Dean,  Lange's  Handbook  of  Chemistry,  12th  Edition  (McCraw-Hill  Book  Company,  New  York,  1979)  Table  7-4. 


TABLE  A. 6  Vapor  Properties  of  Chemicals  with  High  Spreading  Coefficients 


John  A.  Dean,  Lange's  Handbook  of  Chemistry,  12th  Edition  (McGraw-Hill  Book  Company, 
New  York,  1979)  Table  10-8. 


TABLE  A. 7  Surface  and  Intf.rfacial  Tensions  and  Solubilities 
of  Chemicals  with  HiRh  Spreadina  Coefficients 


John  A.  Dean,  Lange's  Handbook  of  Chemistry.  12th  Edition  (McGraw-Hill  Book  Company,  New  York,  1079)  10-35. 


APPENDIX  B 


Subroutines,  Symbols,  and  Flow  Charts 
for  Program  DMODEL 


TABLE  B.l  LIST  OF  SUBROUTINES  AND  CALLS 


1.  DMODEL, 

Calls:  AIR,  SPLOC,  SPREAD,  SPTYPE,  HATER,  WB 
Called  by:  — 


2.  AIR 

Calls:  — 

Called  by:  DMODEL 

3.  CHEKMS 

Calls:  — 

Called  by:  INTE 

4.  .  CHEMCL 

Calls:  — 

Called  by:  SPTYPE 


5.  CURRT 

Calls:  — 

Called  by:  SPREAD 


Calls:  — 

Called  by:  INTE 


7.  EVA  P 

Calls:  — 

Called  by:  INTE 

8.  FCN11,  FCN12,  FCN21,  FCN2 2  ,  FCN41,  FCN42 

Calls:  — 

Called  by:  RUNKUT  (through  INTE) 
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TABLE  B. 1  (CONTD) 


GROUND 

Calls:  — 

Called  by:  SPREAD 


INIT 

Calls:  INT12A,  INT12B,  INIT4A,  INIT4B 
Called:  SPREAD 

1NT12A 

Calls:  INTE,  MOVE,  PRINTO,  TRANSP 
Called  by:  INIT 

INT12B 

Calls:  — 

Called  by:  INIT 

INIT4A 

Calls:  INTE,  MOVE,  PRINTO,  TRANSP 
Called  by:  INIT 

INIT4B 

Calls:  — 

Called  by:  INIT 


INTE 

Calls:  CHEKMS ,  OISS,  EVA P,  RUNKUT 
Called  by:  INT12A,  INIT4A,  SPREAD,  SWITCH 

MOVE 

Calls:  — 

Called  by:  INT12A,  INIT4A,  SPREAD,  SWITCH 


TABLE  B.l  (CONTD) 


PRINTO 

Calls:  — 

Called  by:  INT12A,  INIT4A,  SPREAD,  SWITCH 
RUNKUT 

Calls:  FCN11 ,  FCN12,  FCN21 ,  FCN22,  FCN41 ,  FCN42,  UERTST 
Called  by:  INTE 

SPLOC 

Calls:  — 

Called  by:  DMODEL 

SPREAD 

Calls:  CURRT,  GROUND,  INIT,  INTE,  MOVE,  PRINTO,  SWITCH, 
TRANSP,  UTPEAK 

Called  by:  DMOOEL 
SPTYPE 

Calls:  CHENCL 
Called  by:  DMODEL 

SWITCH 

Calls:  INTE,  MOVE,  PRINTO,  TRANSP 
Called  by:  SPREAD 

TRANSP 

Calls:  — 

Called  by:  INT12A,  INIT4A,  SPREAD,  SWITCH 
UERTST 

Calls:  UGETIO 
Called  by:  RUNKUT 


TABLE  B.l  (CONTD) 


25.  UGETIO 

Calls:  — 

Called  by:  UERTST 

26.  UTPEAK 

Calls:  — 

Called  by:  SPREAD 

27.  WATER 

Calls:  — 

Called  by:  DMODEL 


28.  WBS 

Calls:  WIND 
Called  by:  DMOO EL 


29.  WIND 

Calls:  — 
Called  by:  WBS 
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TABLE  B.2  INPUT  VARIABLES 


General 

TITLE 

Name  of  run  (up  to  30  characters) 

TDC 

Ambient  temperature,  °C 

PB 

Barometric  pressure,  millibars 

DELT 

Integration  time  step,  seconds 

TSTOP 

Total  run  time,  minutes 

HMIN 

Minimum  allowed  thickness  of  thick  slick, 
meters 

HTN 

Thin  slick  thickness,  meters  (usually  equal 
to  HMIN) 

TPT 

Time  interval  between  printout  of  results, 
minutes 

Chemical  Properties 

DENO 

Density,  kg/m3 

CMW 

Molecular  weight 

OCA 

Diffusion  coefficient  in  air,  m2/sec 

DCW 

Diffusion  coefficient  in  water,  m2/sec 

PV 

Vapor  pressure,  newton/m2 

CS 

Solubility  limit  in  water,  kg/m3 

SIGOA 

Chemical-air  interfacial  tension,  newton/meter 

SIGOW 

Chemical-water  interfacial  tension,  newton/meter 

Discharge  Parameters 

ITYPE  . 

Descriptor  for  instantaneous  or  continuous  spills 

TEM 

Total  spilled  volume,  m3,  for  an  instantaneous 
spill;  discharge  rate,  m3/sec,  for  a  continuous 
spill . 

TSPILL 

Total  discharge  time  for  a  continuous  spill, 
minutes. 
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TABLE  B.2  (CONTD) 


Water  Body  (not  all  are  needed,  depending  on  water  body) 
XO ,  YO 


W 

0 

RO 

UC 

U0.U1 , WT ,ALPH 

R 

LI  ,L2 
X  ( I )  *  Y  ( I ) 

X  ( 1  )  » Y  ( 1 ) ; 

X  ( 2 ) ,  Y  ( 2 ) 

UX(1  ,1  )  ,UY ( 1  , 1  ) 
UX  ( I  ,  J  )  ,UY ( I , J ) 


Coordinates  of  spill  source,  meters  (open 
water  only) 

Width  of  river,  meters 

Depth  of  river,  lake,  or  coastal  water,  meters 

Roughness  of  river  bottom,  meters 

Current  in  river,  meter/sec 

For  a  tidal  river:  average  current,  m/sec; 

•  amplitude  of  sinusoidal  current,  m/sec; 
tidal  period,  minutes;  phase  of  tide  with 
respect  to  time  of  spill,  minutes 

Radius  of  circular  lake,  meters 

Width  and  breadth  of  rectangular  lake,  meters 

Ten  x,y  coordinates  describing  irregularly- 
shaped  lake  or  coast,  meters 

Two  x,y  coordinates  describing  a  straight 
coast  line,  meters 

Components  of  a  constant  current  in  open 
water,  meter/sec 

Components  of  a  time-  or  spatial -varying  current 
in  open  water,  meter/sec;  I  =  spatial  position; 
J  =  time. 


Tim 

XU (  I  )  ,  YU  (  I ) 

vw 

THETA! 

VWX  (  I  ) 

THETA ( I ) 

TT  (  I  ) 


Ten  specified  time  instants  for  a  time-varying 
current  in  open  water,  minutes 

Four  x,y  coordinates  (lake)  or  10  x,y  coordinates 
(coastal  water)  that  describe  space  grid  for  a 
spatial ly-varying  current  in  open  water,  meters 

Constant  wind  speed,  meter/second 

Direction  of  constant  wind  with  respect  to  channel 
axis  or  x-axis  (open  water),  degrees 

Magnitude  of  time-varying  wind  at  time  I, 
meter/second 

Direction  of  time-varying  wind  with  respect  to 
channel  axis  or  x-axis  (open  water),  degrees 

Ten  specified  time  instants  for  a  time-varying 
wind,  minutes 
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TABLE  B.3  COMPUTED  OUTPUT  VARIABLES 


TABLE  B.3  (CONTD) 


XC.YC 

XC 


TEMPI , TEMP2 
XLE,YLE 


Location  of  center  of  an  instantaneous  spill 
(open  water),  meters 

Movement  of  an  instantaneous  spill  in  a  river 
meters 

Upstream  and  downstream  edges  of  an  instantan 
eous  spill  in  a  river,  meters 

Upstream  and  downstream  locations  of  a  con¬ 
tinuous  spill  in  a  river,  meters 

Coordinates  of  leading  edge  of  a  triangular 
spill,  meters 

Time  when  slick  impacts  a  coast 

Time  when  thick  slick  thickness  is  less  than 
HMIN 
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FIGURES  B.1  TO  B.16  ARE  THE  FLOW 
CHARTS  OF  PROGRAM  "DMODEL  "  and 
ALL  SUBROUTINES.  THE  SUBROUTINES 
ARE  GIVEN  IN  THE  ORDER  THEY  ARE 
FIRST  ENCOUNTERED  IN  THE  PROGRAM, 
NOT  IN  ALPHABETICAL  ORDER. 


F 


GURE  8.1  FLOW  CHART  FOR  PROGRAM  "DMQDEL 


Subroutine  "AIR" 


This  subroutine  calculates  the  density  and  viscosity  of  air 
as  a  function  of  pressure  and  temperature. 


Subroutine  "WATER" 


This  subroutine  calculates  the  density  and  viscosity  of  water 
as  a  function  of  temperature. 


B-ll 


! 


FIGURE  B . 2  FLOW  CHART  FOR  SUBROUTINE  "WBS 


FIGURE  B . 2  (CONTD  ) 


140 


500 


600 


Return  to  "WBS"  and  then  to  "DMODEL" 


FIGURE  8.3  FLOW  CHARTS  FOR  SUBROUTINES  "SPLOC"  AND  "SPTYPE 


TOO 


Return  to  "DMODEl” 


Go  to  299 
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FIGURE  B.3  ( CONTD ) 
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FIGURE  B . 4  FLOW  CHARTS  FOR  SUBROUTINE  "SPREAD 


FIGURE  B . 4  (CONTD ) 


350 


351 
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FIGURE  B . 4  (CONTD ) 


998 


B-l  8 


FIGURE  B . 5  FLOW  CHARTS  FOR  SUBROUTINES 
"UTPEAK"  AND  "CURRE" 


8-19 


FIGURE  B . 5  (CONTD ) 


200 
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FIGURE  B. 6  FLOW  CHART  FOR  SUBROUTINE  "INIT 


Subroutine  "INIT" 


If  spill  is  instantaneous  in  a  channel,  call  INT12A. 

If  spill  is  continuous  in  a  channel  without  a  current, 
call  INT12A.  If  spill  is  instantaneous  in  open  water, 
call  INT12B.  If  spill  is  continuous  in  open  water 
without  a  current,  call  INT12B.  If  spill  is  continuous 
in  a  channel  with  a  current,  call  INIT4A.  If  spill  is 
continuous  in  open  water  with  a  current,  call  INIT43. 


± 


Return  to  SPREAD 


Subroutine  "INT12A" 


This  subroutine  calculates  initial  conditions  for  spills 
in  a  channel.  If  the  spill  is  continuous,  and  the  time 
required  for  the  spill  to  spread  across  the  channel  is 
greater  than  TSPILL,  the  spill  is  changed  to  instantaneous. 
In  either  case,  if  the  time  required  for  the  spill  to 
spread  across  the  channel  is  greater  than  the  gravity- 
inertial  phase  maximum  time,  the  calculations  are  con¬ 
tinued  by  numerical  integration,  just  as  in  SPREAD, 
until  the  spill  spreads  across  the  channel. 
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FIGURE  B.6  (CONTD ) 


This  subroutine  calculates  initial  conditions  for 
continuous  spills  in  open  water  without  a  current. 


FIGURE  B . 7  FLOW  CHART  FOR  SUBROUTINE  "SWITCH 


Subroutine  "SWITCH" 


This  subroutine  switches  a  continuous  spill  model 
to  an  appropriate  Instantaneous  spill  model  when 
TIME  >  TSPILL.  If  the  spill  is  in  open  water,  and 
the  slick  is  wide  compared  to  its  length,  the  slick 
spreads  as  if  it  were  in  a  channel  until  the  slick 
shape  is  more  regular.  Afterwards,  it  spreads  as 
an  instantaneous  slick  in  open  water. 
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FIGURE  8.8  FLOW  CHART  FOR  SUBROUTINE  "INTE" 
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FIGURE  B . 9  FLOW  CHART  FOR  INTEGRATION  EQUATIONS 


Subroutine  FCN11 


This  subroutine  contains  the  dA/dt  and  dh/dt  equations 
for  an  instantaneous  spill  in  a  channel. 


Subroutine  FCN12 


This  subroutine  contains  the  dA/dt  and  dh/dt  equations 
for  an  instantaneous  spill  in  open  water. 


Subroutine  FCN21 


This  subroutine  contains  the  dA/dt,  dA/dt,  and  dh/dt 
equations  for  a  continuous  spill  in  a  channel  without 
a  current. 


Subroutine  FCN22 


This  subroutine  contains  the  dA/dt,  dA/dt,  and  dh/dt 
equations  for  a  continuous  spill  in  open  water  without 
a  current. 


Subroutine  FCN41 


This  subroutine  contains  the  dA/dt,  dA/dt,  and  dh/dt 
equations  for  a  continuous  spill  in  a  channel  with  a 
current. 


Subroutine  FCN42 


This  subroutine  contains  the  dA/dt,  dA/dt,  and  dh/dt 
equations  for  a  continuous  spill  in  open  water  with 
a  current. 
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FIGURE 


8.10  SUBROUTINES  FOR  MASS  TRANSFER  COEFFICIENTS 


Subroutine  EVAP 


This  subroutine  computes  the  evaporation  mass  transfer 
coefficient  EVAPM  as  a  function  of  the  relative  wind 
speed  UREL  over  the  slick.  (UREL  is  computed  in  TRANSP). 


Subroutine  DISS 


This  subroutine  computes  the  dissolution  mass  transfer 
coefficient  OISSOM  as  a  function  of  wind,  current, 
wave  height,  and  bottom  roughness. 


FIGURE  B.11  FLOW  CHART  FOR  SUBROUTINE  "TRANSP 


100 


999 


FIGURE  B . 1 2  FLOW  CHART  FOR  SUBROUTINE  "MOVE 


200 


Using  appropriate  transport  velocity  components, 
calculate  the  movement  of  the  leading  edge  during 
one  time  step 


999 


Return  to  SPREAD,  SWITCH,  INT12A,  or  INIT4A 


FIGURE  8.13  FLOW  CHART  FOR  "PRINTO 


B  -  29 


FIGURE  B . 1 4  FLOW  CHART  FOR  SUBROUTINE  "CHECKMS 


FIGURE  B . 1 5  FLOW  CHART  FOR  "RUNKUT 


FIGURE  B . 1 6  FLOW  CHART  FOR  SUBROUTINE  “CHEMICL 


This  subroutine  contains  thermophysical  property 
data  for  twenty  chemicals  that  can  be  supplied 
to  describe  the  spill. 


appendix  c 

PROGRAM  "DMODEL "  LISTING 

Subroutines  of  DMODEL  are  given  in 
alphabetical  order 


0001 


PROGRAM  DMODEL 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 


0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  Dir FUSION  AND  DISPERSION  MODEL  C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

THIS  PROGRAM  READS  IN  THE  RUN  TITLE  AND  THE  INPUT 
VALUES  FOR: 


TDC  -  AMBIENT  TEMPERATURE 
PB  -  BAROMETRIC  PRESSURE 
DELT  -  INTEGRATION  TIME  STEP 

TSTOP  -  MAXIMUM  TIME  FOR  PRINTOUT (END  OF  RUN) 

HMIN  -  DES-RED  MINIMUM  THICKNESS  OF  THICK  SLICKi 
RUN  ENDS  WHEN  THICKNESS  BECOMES  LESS  THAN 
HTN  -  CONSTANT  THICKNESS  OF  THIN  SLICK,  USUALLY 


HMIN 

EQUAL 


TO  HMIN 


THE  PROGRAM  ALSO  CALCULATES  THE  SURFACE  TENSION  OF  WATER-SICWA, 
AND  CALLS  SUBROUTINES  "AIR"  AND  "WATER"  TO  CALCULATE  AIR  AND 
WATER  PROPERTIES.  IT  INITIALIZES  ALL  VARIABLES.  IT  CALLS 
SUBROUTINES  "WBS", "SPLOC",  AND  "SPTYPE”,  AND  FINALLY  CALLS 
"SPREAD"  TO  MAKE  THE  SPREADING  CALCULATIONS. 


COMMON/SI ZE/R, D. WW, LI, L2, H, RO 

C OMMON / C HEM I / DENO ,  DCA, DCW, CS,  CMW 

COMMON/WATER/DENW, VISW, OR 

COMMON/ENVOR/PV,  VISA, DENA, TDC 

COMMON/ 1 NTER/COEF,  SIGWA,  ST GOA, SIGOW, SIG 

COMMON/CONSTAT/UC, VW,  UTBAR, UO,  Ul,  WT, ALPH, THETA 1 

COMMON /MLOSS/EVAPM, DISSOM 

COMMON /MOVE/ UP SAK ( 10 ) , XLE,  XTE, YLE, YTE, DELT, TIME, TSTOP, TCHECK 
COMMON/CURRENT/UBARdO),  DMO VE,  UTOT,  UTX,  UTY ,  UREL 
COMMON/MASS/TOTALE,  totald, TOTALM,  DMASS 
COMMON/CONTOUR /SHAPE,  X( 10), YC 10), XC, YC,  IC,  IW,  ISP,  XO, YO 
COMMON/TRANSIT /UX  < 10,  10),UY<10,  10),VWX<10), 

1  VWY< 10), THETA < 10 ) , TI ( 10 ) , ID, IT, I V, 

2  XU< 10), YU< 10), TT< 10) 

COMMON/ ID/ ID1,  ID2,  ID3 
COMMON/RUNOE/ YY ( 5 ) , C ( 24 ) , W  <  5, 30 ) 

COMMON/SPREAD/TII,  ATK,  HTK,  ATN,  HTN,  HMIN,  INDEX,  IFLAG 
COMMON/STYPE/SP ILLM,  SPILMR,  TSPILL,  WS, STP, SPM 
COMMON/SENSE/EVA  (  40,  10),  DIS(40,  10),  THM40.  10),  TIN  (40,  10), 

1  P IP ( 40 ) , TPT 

COMMON/CK/C 10,  C20, Cll, C21, C12, C22, K10, K20, Kll, K21, 

1  K12, K22 

DIMENSION  NAME(30, 20) 

REAL  K10.K20,  Kll,  K21,K12,K22 


C 

C 

C 


C10-K22  ARE  THE  CONSTANTS  IN  THE  SPREADING  MODELS 


0022 

Cl 0-2.  37 

0023 

C20-3.  65 

0024 

Cl  1-2.  37 

0025 

C21-3.  65 

0026 

Cl 2-2  37 

C-1 


0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 


0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

005° 

0060 

0061 

0062 

0063 


0064 


0065 


0066 


4 

5 


8 

10 

11 


20 

21 


23 

24 


25 

26 


27 

28 


31 

32 


C 

C 

c 


C22-3.  65 
K10-1.  53 
K20-1.  21 
Kll-1.  24 
K21-1.09 
K12-2.  37 
K22-3.  65 
I FLA©  -  1 

08  -  08 AV 1 TAT I ONAL  ACCELERATION  (M/SQ.  SEC) 

OR  -  9.  80665 
INDEX  -  0 
WR  ITE  ( 6.  5) 

FORMAT < IX. 30HENTER  THE  TITLE  FOR  THIS  RUN..  ) 

READ  <5. 7, ERR-4)  ( NAME ( JJ, I FLA© > >  JJ— 1 .  30 ) 

FORMAT ( 30A1 ) 

WRITE< 1, 8) <NAME< JJ,  I FLA© ) , J  J- 1  .  30)' 

FORMAT  < 1H1 1 30A 1 < //) 

WR1TE<6.  11) 

FORMAT < IX,  41HINPUT  THE  AMBIENT  TEMPERATURE  IN  CELSIUS.  ) 

READ  <5.*. ERR- 10)  TDC 
WRITE (6, 21 ) 

FORMAT < IX.  42H INPUT  THE  BAROMETRIC  PRESSURE  IN  MILLIBARS, 

*  /,  IX, 47HCR  ZERO.  0.  FOR  THE  STANDARD  SEA  LEVEL  PRESSURE/ 

•  IX.  14H0F  1013.  25  MB.  > 

READ  <  5. *. ERR— 20)  PB 
IF ( PB.  LE.  0.  )  PB-1013.  25 
WR ITE  <  6. 24) 

FORMAT < IX.  46HINPUT  THE  TIME  INCREMENT  IN  SECONDS.  TRY  1.0.  ) 
READ  <  5.  *, ERR-23 )  OELT 
IF  <DELT.  LE.  0.  >  DELT-1.  0 
WRITE<6»  26) 

FORMAT! IX.  37H INPUT  THE  DESIRED  RUN  TIME  IN  MINUTES) 

READ  <  5. *.  ERR-25 ) TSTOP 
TSTOP— TSTOP  *60 . 

WRITE<6.  28) 

FORMAT < IX, 

1  59H INPUT  MINIMUM  ALLOWABLE  THICKNESS  OF  THICK  SLICK  IN  METERS.  ) 

READ <5, *. ERR-27 )HMIN 
WRITE<6,  32) 

FORM/ T< IX, 40H INPUT  THICKNESS  OF  THIN  SLICK  IN  METERS.  ) 

READ <5.*.  ERR-31 )HTN 


CALL  SUBROUTINE  AIR  TO  CALCULATE  AIR  PROPERTIES 
CALL  AIR  (PB,  TDC,  DENA,  VISA) 

CALL  SUBROUTINE  WATER  TO  CALCULATE  WATER  PROPERTIES 
CALL  WATER  (TDC,  DENW,  VI SW) 


SI5WA  -  SURFACE  TENSION  BETWEEN  WATER  AND  AIR  1 


SIOWA  -  (  75.  64  -  0,  144  *  TDC  )  *  1.  E-3 

SET  UP  ALL  THE  INITIAL  AND  DEFAULT  VALUES 


I 


C-2 


/' ' 


0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0073 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0083 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0093  29 

0096 
0097 
0098 
0099 
OlOO 
0101 
0102 

0103  30 

C 

0104 

0103 

0106 

C 

C 

C 

0107 

c 

c 

c 

0108 

c 

c 

c 

c 

0109 


UC  -  0.  0 
VW  «  0.  0 
UT8AR  -  0.  0 
THETA  1  -  0.  0 
XLE  -  0.  0 
YLE  -  0.  0 
XTE  -  0. 0 
YTE  -  0.  0 
XC  -  0.  0 
YC  -  0.  0 
XO  -  0.  0 
YO  -  0.  0 
TOTALM  «  0.  0 
TGTALE  -  0.  0 
EVAPM  -  0.  0 
DISSOM  -  0.  0 
TOTALD  -  0.  0 
SPILLM  «■  0.  0 
SP1LHR  -  0.  0 
IC  «  0 
IW  -  0 
ID  -  1 
IT  -  1 
IV  1 

DO  30  I»l, 10 
DO  29  J-l, 10 
UX<I,  J)  -  0.  0 
UY  (  1<  J)  -0.0 
CONTINUE 
Till)  -  0.  0 
TT  ( I )  -  0.  0 
UPEAK  ( I )  -  0.  0 
UBAR  (  I  )  ■  0.0 
VWX  ( I )  -  0.  0 
WIY<  I  )  -  0.  0 
THETA ( I )  -  0.  0 
CONTINUE 

TIME  -  0.  0 
TCHECK  -  TSTOP 
TSPILL  -  TSTOP 

CALL  SUBROUTINE  WBS  TO  OBTAIN  WATER  BODY  DESCRIPTION 
CALL  WBS 

CALL  SUBROUTINE  SPLOC  TO  SPECIFY  SPILL  LOCATION 
CALL  SPLOC 

CALL  SUBROUTINE  3PTYPE  TO  DETERMINE  SPILL  TYPE  AND  CHEMICAL 
PROPERTIES 

CALL  SPTYPE  < PB ) 
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0001 


0002 

0003 


0004 

0005 


0006 


0007 

0008 

0009 

0010 

0011 


0012 

0013 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  AIR  <PB.  TDC,  DENA,  VISA) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  SUBROUTINE  AIR  IS  USED  TO  DETERMINE  AIR  PROPERTIES.  IT  IS 

C  CALLED  BY  PROGRAM  DMODEL. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  U.  S.  STANDARD  ATMOSPHERE,  1976 

C  DATA  IN  CGS  UNITS 

DATA  BETA.  S.  R,  A,  B,  C/1.  458E-3.  1 10.  4.  2.  87053E+6.  2.  64638E-5, 

1  245.  4.  12.  / 

DATA  AO,  Al,  A2,  A3,  A4,  RPR/ 1 .  041 707E+1 , -4.  179207E+2, 

1  9.  525310E+3.  -9. 708879E+4. 3. 736121E+5. 8. 31432/ 

C 

C  TDC  -  TEMPERATURE  (C) 

C  PB  -  BAROMETRIC  PRESSURE  (MILLIBAR) 

C  DENA  -  AIR  DENSITY  (KG  /  CU.  M) 

C  VI  -  VISCOSITY  OF  AIR  (POISE) 

C  VISA  -  KINEMATIC  VISCOSITY  OF  AIR  (SO.  M  /  SEC) 

C  W  -  MOLECULAR  WEIGHT 

C  R  -  UNIVERSAL  CAS  CONSTANT 

C 

P  -  PB  *  1000.  0 
T  *■  TDC  +  273. 15 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  AIR  DENSITY  IN  UNITS  OF  GM  /  CU.  CM 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DENA  -  P  /  (R  *  T) 

c 

C  CONVERT  TO  UNITS  OF  KG  /  CU.  M 

C 

DENA  -  DENA  *  1000.  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
TR  -  SQRT(T) 

TI  ■  T  *  TR 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
VI  «  SETA  *  TI  /  <T  +  S) 

C  NOTE  :  1  POISE  -  1  CM  /  (SEC -CM).  CONVERT  TO  KINEMATIC  VISCOS) 

VISA  -  (VI  /  10.  0)  /  DENA 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

RETURN 

END 
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0001 


/ 


0002 

0003 

0004 

0003 

0006 

0007 

oooe 

0009 

0010 

0011 

0012 

0013 


0014 

0013 

0016 

0017 


0018 

0019 

0020 

0021 

0022 

0023 

0024 

0023 

0026 

0027 

0028 

0029 

0030 

0031 

0032 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  CHEKMS 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  wCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  "INTE"  AND  THE  INITIAL  CONDITION 

C  ROUTINES  “ INT12A"  AND  HINIT4AH.  FOR  A  CONTINUOUS  SPILL,  IT 

C  DETERMINES  IF  (EVAPORATION  RATE  +  OTHER  LOSSES)  >  DISCHARGE 

C  RATE,  OR  FOR  AN  INSTANTANEOUS  SPILL.  IF  SPILL  AREA  IS  ZERO 

C  (LOSSES  >  SPILL  MASS).  IF  EITHER  IS  TRUE.  IT  RETURNS  'IDEB'"*0. 

C  OTHERWISE,  IT  RETURNS  'IDEB '-2. 

C 

COMMON/MASS/TOT ALE, TOTALD, TOTALM,  TMASS 
COMMON/MLOSS/EVAPM,  DISSOM 
COMMON/PR IM/YPRIM£< 3).  IDEB, KKK 

COMMON/MOVE/UPEAK ( 10) , XLE, XTE, YLE.  YTE,  DELT.  TIME,  TSTOP,  TCHECK 
COMMON/STYPE/SP ILLM,  SPILMR, TSPILL,  WS,  STP,  SPM 
COMMON/RUNOE/YYf 5),  C<24),  W<3.  30) 

COMMON/CHEM I /DENO,  DCA,  DCW. CS,  CMW 

COMMON/SPRE* J/TI I, ATK, HTK, ATN, HTN,  HMIN.  INDEX,  I FLAG 
C 

IDEB-  2 
EPSLON-  . 01 
I STP -STP 

IF < ISTP.  EQ.  1 )  GOTO  10 
C 

C  **  CONTINUOUS  SPILL  *■* 

C 

YNET 1 -SP I LMR-YPR I ME ( 4 > -YPR I ME ( 3 ) 

TEST-SP ILMR- YPR IME ( 4 ) -YPR I ME ( 3 ) - DENO *HTN* YPR I ME ( 2 ) 

IF (TEST.  LE.  EPSLON)  I DEB-0 
RETURN 
C 

C  **  INSTANTANEOUS  SPILL  ** 

C 

TO  DISSTM  -  TOTALD  +  DELT  *  DISSOM  *  YY(1> 

EVAPTM  -  TOTAL E  +  DELT  *  EVAPM  *  YY(1) 

IF  ( ( ABS ( SP ILLM  -  DISSTM  -  EVAPTM)  /  SPILLM)  . LE.  EPSLON ) THEN 
IDEB  -  0 
RETURN 
ELSE 

ATEMP  -  YY ( 1 )  +  YPR I ME  < 1 )  *  DELT 
IF ( ATEMP  .  LE.  0)  THEN 
IDEB  -  0 
RETURN 
ELSE 
RETURN 
END  IF 
END  IF 
END 


OOOl 


0002 

0003 

0004 


0005 

0006 


0007 


0008 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  CHEMCL(ICS.  NAME,  PB.  PHI,  DENO.  CS,  CMW, 

1  DCA,  DCU,  SI60A,  SIfiOW) 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C-  THIS  SUBROUTINE  IS  CALLED  BY  "SPTYPE”.  IT  INPUTS  AUTOMATICALLY 

C  THE  CHEMICAL  PROPERTIES  FOR  THE  20  LISTED  CHEMICALS. 

C 

COMMON/WATER/DENW, VISW. CR 
COMMON/ENVOR/PV, VISA,  DENA.  TDC 
COMMON/ NAME /NC  <2, 20) 

***•**•*-************♦*♦#*•*****♦*********-»******#■*-*♦****•***•***■***•*•*■*•*■*•***■#* 


* 

MATERIAL  NO. 

NAME 

* 

1 

ALLYL  CHLORIDE 

* 

2 

BENZENE 

* 

3 

BUTADIENE  (1,2) 

* 

4 

BUTYL  ACETATE  (ISO) 

* 

3 

BUTYL  MERCAPTAN  (N) 

* 

6 

CHL0R0BUTA-1-3-DIENE 

* 

7 

CYCLOHEXANE 

* 

8 

CYCLOHEXENE 

* 

9 

DIPROPYL  ETHER  (ISO) 

* 

10 

ETHYL  CHLORIDE 

♦ 

11 

ETHYL  MERCAPTAN 

♦ 

12 

HEPTANE  <N> 

* 

13 

HEXANE  (N) 

# 

14 

METHYL  CYCLOHEXANE 

# 

IS 

NONANE  (N) 

# 

16 

OCTANE  (N) 

* 

17 

PENTANE 

» 

18 

TOLUENE 

* 

19 

trimethylbenzene 

* 

20 

XYLENE  (M) 

1 

2 

3 

1 

2 

3 

4 

6 

7 

a 

9 


1 

2 


CHARACTER* 10  NAME(2),NC 

DIMENSION  RHO ( 20 > ,  WM<20),  D0A<20),  D0U(20), 

SL ( 20) , TF 1 (20  > , CAO ( 20 ) ,  CA1 (20),  STA(20),  SAO(20), 
SA1 (20) , TF2(20). STW ( 20 ) , TF3 ( 20 > ,  PAF ( 20 > ,  CTK <20 > , 


VPA ( 20 ) ,  VPB ( 20 ) i 


DATA  NC/ 


(N) 


RHO 

DATA 


WM 


VPC ( 20 ) 

'BENZENE 
'BUTYL  ACET' 
'CHLOROBUTA' 
'CYCLOHEXEN ' 

'ETHYL  CHLO ' 

'HEPTANE  (N' 

'METHYL  CYC' 

'OCTANE  <  N )  ' 

'TOLUENE 
'XYLENE  (M)' 

IS  DENSITY  AT  REFERENCE  TEMPERATURE  (200 
RHO/938.  0,  S79.  0,  652.  0,  871.  0,  841.  0,  956.  0,  779.  0,  810.  0, 
725.  0,  896.  0.  839.  0,  684.  0,  65.9.  0,  769.  0,  718.  0,  703.  0, 
626.  0,  867.  0,  894.  0,  864.  0/ 

IS  MOLECULAR  WEIGHT 


'ALLYL  CHLO' 
'BUTADIENE  ' 
'BUTYL  MERC ' 
'CYCLOHEXAN' 
'DIPROPYL  E' 
'ETHYL  MERC ' 
'HEXANE  (N) ' 
'NONANE  ( N  >  ' 
'PENTANE 
'TR I METHYLS ' 


'RIDE 

'(1,2) 

'  APTMN 
'E 

'THER  (ISO) 
'  APTAN 


'ENZENE 


'ATE  (ISO) 

'  -1 -3-D IENE 
/  ~ 

'RIDE 
'  ) 

'LOHEXANE 


-  IN  GM  /  CU.  CM. 


C-7 


0009  DATA  WM  /76.  526,  78.  114,  54.  092,  116.  160,  90.  19,  88.  54,  84.  162. 

1  82.  146,  102.  177,  64.  515.  62.  134,  100.  205,  86.  178,  98.  189. 

2  128.  259,  114.  232,  72.  151,92.  141,  120.  195.  106.  168/ 

C  DOA  IS  DIFFUSI VITY  IN  AIR  AT  REFERENCE  TEMPERATURE  <200  - 

C  IN  SO.  CM.  /  SEC. 

0010  DATA  DOA/O.  097,  0.  087,  0.  0.  0.  064.  0.  0.  0.  0.  0,  081. 0.  085.  0.  063. 

1  0.  0913.  0.  0983,  0.  064.  0.  070,  C.  072,  0.  058,  O.  058, 

2  0.  075.  0.  083.  0.  065.  0.  072/ 

C  DOW  IS  DIFFUSI VITY  IN  WATER  AT  REFERENCE  TEMPERATURE  <200  - 

C  <SQ.  CM.  /  SEC.  )  *  1E5 

0011  DATA  DOW/1.  019,  1.  02,  1.  062,  0.  712,  0.  0,0.  0,0.  84,  0.  870.  0.  744. 

1  1.  128,  1 .  533,  0.  700.  0.  764.  0.  799.  0.  597.  0.  638,  0.  84. 

2  0.85,0.695,0.756/ 

C  VPA.  VPB  AND  VPC  ARE  USED  TO  CALCULATE  VAPOR  PRESSURE  PV  HAS 

C  A  UNIT  OF  < NEWTON  /  SO.  M.  ) 

DATA  VPA/10.  84,  10.  03055.  LO.  11873.  10.  15.  11.  06.  9.  2864, 

9.  9662.  10.  01107,  9.  9744,  10.  82.  10.  75,  10.  02167, 

10.  00091,  9.  9479,  10.  06383.  10.  04358.  9.  97786, 

10.  07954.  10.  16572,  10.  13398/ 

DATA  VPB/ 1  540.  ,  1211.  033,  1041.  117,  1343.  ,  1877.  ,  783  45.  1201.  53. 
1229.  973,  1139.  34,  1375.  .  1461.  ,  1264.  90.  1171.  17. 

1270.  763.  1431.  82,  1351.  99.  1064.  84. 1344.  8,  1593.  958. 

1462.  266/ 

DATA  VPC/273.  2,  220.  79,  242.  274,  207.  O.  273.  0.  179.  7.  222.  65. 

224.  10,  218.  7,  273.  2,  273.  0.  216.  54,  224.  41,  221.  42, 
202.01,209.  15,  233.  01,219.  48.  207.  08.  215.  11/ 

SL  IS  THE  SOLUBILITY  IN  C  /  100  0  OF  H20 
DATA  SL  /.  33.  .  175,  O.  ,  .  6.  .  06,  0.  ,  .  015,  O’.  ,  .  2.  .  60.  1.  5,  .  0052. 

.  014,  O.  .  0.  ,  .  002,  .  036.  .  045,  O.  ,  .  0196/ 

TF1  IS  THE  REFERENCE  TEMPERATURE  FOR  SOLUBILITY 
DATA  TF1/25.  ,  20.  ,  O.  ,  20.  ,  0.  ,  0.  ,  28.  34.  0.  ,  20.  ,  20.  ,  20.  ,  18.  , 

0.  ,  0.  .  O.  .  16.  .  16.  ,  20.  ,  0.  ,  25.  / 

C  CAO  AND  CA1  ARE  USED  TO  CALCULATE  TEMPERATURE  DEPENDENT 

C  SOLUBILITY 

C 

0017  DATA  CAO/O.  0.  -.  8213.  15*0.  0.  -1.  57767.  2*0.  0/ 

0018  DATA  CA1/0.  0.  .  00337,  15*0.  0. . 0114, 2*0.  0/ 

C 

C  5TA  IS  THE  SURFACE  TENSION  BETWEEN  CHEMICAL  AND  AIR 

C  AT  REFERENCE  TEMPERATURE  TF2  -  IN  DYNE  /  CM 

DATA  STA/2.  89.  2.  888,  0.  0.  2.  37,  2.  61,  0.  0.  2.  46.  2.  678.  1.  71,  1.  95,  2.  35. 

1.  93,  1.  84,  2.  385,  2.  29,  2.  17,  1.  60.  2.  352,  2.  083,  2.  060/ 

DATA  TF2/15.  0,  7*20.  ,  25.  05.  11*20.  / 

SAO  AND  SA1  ARE  USED  TO  CALCULATE  SURFACE  TENSION  AT 
DIFFERENT  TEMPERATURE 

DATA  SAO/O.  0,  31.  54,  4*0.  0,  27.  62,  29.  23,  19.  89,  0.  0,  0.  0,  22.  1. 

20.  44,  26.  11,  24.  72,  23.  52,  IS.  25.  30.  90,  30.  91,  31.  23/ 

DATA  SA1/0.  0, .  133, 4*0.  0. .  1188,  .  1223.  .  1048, 2*0.  0, .  098, 

.  1022,  .  113,  .  09347, .  09509,  .  11021.  .  1189,  .  1040, 

. 1104/ 

C  STW  IS  THE  SURFACE  TENSION  BETWEEN  CHEMICAL  AND  WATER  AT 


C-8 


'J 


I 

.V 

C 

C 

V 

S 

0023 

V 

V 

0024 

n 

C 

pi 

m  n 

0023 

m  '• 

*  % 

C 

K! 

C*) 

0026 

1 

0027 

P 

0028 

*  4 

■  d 

0029 

1112 

>; 

•  4 

0030 

0031 

0032 

*4 

C 

0033 

0034 

0035 

1113 

s 

1 

0036 

1116 

C 

1  s  . 

0037 

C 

0038 

4* 

C 

C 

‘•1 

0039 

V 

i 

0040 

0041 

1 114 
C 

c 

A 

* 

0042 

c 

r\ 

c 

c 

4, 

i 

0043 

0044 

c 

■l 

c 

v" 

c 

c 

-- 

c 

3 

0043 

0046 

c 

c 

c 

» 

m 

c 

REFERENCE  TEMPERATURE  TF3  -  DYNE  /  CM 

DATA  STW/3.  71,  3.  3,  0.  0,  4.  0,  3.  0,  0.  0,  3.  0.  0.  0,  1.  71,  4.  00,  2.  30,  5.  10, 

3.  11,  0.  0,  3.  30,  3  08,  3.  02,  3.  61, 0.  0.  3.  64/ 

DATA  TF3/22.  73,  20.  ,  0.  0,  19.  83,  20.  ,  0.  ,  24.  85,  0  0,  23.  03, 

-.  13.  20.  ,  19.  83.  20.  ,  0.  ,  20.  ,  20.  ,  19.  03,  23.  ,  0.  .  29.  85/ 

PAF  IS  THE  PITZER  ACENTRIC  FACTOR 

DATA  PAF/.  13.  .  212,  .  233,  .  479,  .  3.  0.  ,  .  213.  .  21.  .  34,  .  19.  .  19, 

.  331.  .  296,  .  233,  .  444, .  394, .  231. .  237,  .  39.  .  331/ 

CTK  IS  THE  CRITICAL  TEMPERATURE  -  IN  K 

DATA  CTK/ 3 14.  13,  362.  09,  443.  73.  361.  13,  362.  93,  0  ,  333.  45, 

360  41,  300.  03,  460  33,  499.  13,  340.  13.  307  33,  372  23, 

594.  36,  368  76.  469.  63,  391.  72,  664.  43.  616.  97/ 

DO  1112  I  -  1,  2 

NAME ( I }  -  NC< I, ICS) 

CONTINUE 

PHI  -  <  1.  0-<293.  13/CTK(  ICS)  )  >•*•*<  2.  0/7.  0)-<  1.  0-(TDC+273.  15)/ 
CTK  <  ICS)  )  *•*  <  2.  0/7.  0) 

IF  < PHI  .  EQ.  0.  )  CO  TO  1113 
ZZZ  -  .29036  -  .08773  *  PAF(ICS) 

DENO  -  CHEMICAL  DENSITY  IN  KO/CU  M. 

DENO  -  < RHO < ICS >  *  (ZZZ  **  PHI)) 

00  TO  1116 
DENO  -  RHO (ICS) 

CONTINUE 

PV  -  VAPOR  PRESSURE  -  IN  NEWTON  /  SO.  M. 

PV  -  (VPA(ICS)  -  VPB(ICS)  /  * TDC  +  VPC(ICS))) 

PV  -  (  10.  **  (PV)  )  /  10.  0 

CS  »  SOLUBILITY  LIMIT  -  IN  KO  /  CU  M. 

IF  (CAO(ICS)  .  EQ.  0.0  AND.  CAKICS)  .  EQ.  0  0)  CO  TO  1114 
SL  (  ICS)  -  10.  ( CAO  (  ICS )  ■*  CAKICS)  *  TDC) 

CS  -  SL(ICS)  *  D6NW  /  100  0 

CMW  -  MOLECULAR  WE  I OHT 
CMW  -  WM< ICS) 


DC A  -  DIFFUSI VITY  IN  AIR  (SQ.  M.  /  SEC) 

DC A  -  (DOA(ICS)  *  <1  01323E6)  /  293  15  •*  1  5)  ♦ 

((TDC  +  273  13)  **  13/  (PB  *  1000.0)) 

DC A  -  DCA  *  1  E-4 

NOTE  :  PB  IS  IN  MILLIBAR 

1  03323*1. E6  IS  THE  REFERENCE  PRESSURE  IN  DYNE/CQ  CM. 

DCU  -  D IFFUSI V ITY  IN  WATER  (SO.  M.  /  SEC.  ) 

DCW  ■  ( DOW (ICS)  *  001002  /  293.15)  *  ( < TDC  +  273.13)  / 

(VISW  *  DENW) ) 

DCW  ™  DCW  *  1.  E-9 


SIOOA  -  SURFACE  TENSION  BETWEEN  CHEMICAL  AND  AIR 
< IN  NEWTON  /  M  ) 


C-9 


0047 

0048 

0049 

0090  1117 

0091  1118 

C 
C 
C 

0092 

0093 

0094 


IF  CSAOCICS)  .  EQ.  0  0  AND.  SA1CICS)  .  EO.  0.0)  ©C  TO  1117 
SIOOA  -  CSAOCICS)  -  SAKICS)  #  TDC )  *  <1.  E-3) 

00  TO  1118 

SIOOA  -  STAC  ICS >  *  (1  OE-2) 

CONTINUE 

SIOOW  -  SURFACE  TENSION  BETWEEN  CHEMICAL  AND  WATER 
< IN  NEWTON  /  M.  ) 

SIOOW  -  STWCICS)  *  < 1 .  OE-2 ) 

RETURN 

END 


C-10 


0001 

0002 

0003 

0004 

0005 

0006 


0007 

0008 


0009 
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0011 


0012 

0013 


0014 

0015 

0016 


0017 

0018 
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0022 

0023 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  CURRENT  C 

C  THIS  SUBROUTINE  COMPUTES  THE  AVERAGE  TRANSPORT  C 

C  VELOCITY  OVER  ENTIRE  SPILL  DURATION  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c  THIS  SUBROUTINE  IS  CALLED  BY  "SPREAD".  IT  CALCULATES  THE 

C  AVERAOE  VALUE  OF  THE  VELOCITY  USED  IN  THE  SPREADING  MODELS 

C  TO  COMPARE  WITH  THE  PEAK  COMPUTED  IN  UTPEAK. 

C 

C  ++  VARIABLE  NAME  *# 

C 

C  UBAR(I)  »  AVERAOE  VALUE  OVER  TIME  OF  UC  +  0.  03S*VW  (COMPONENTS) 

C  IN  EACH  OF  THE  9  SLICES  OR  BOXES.  FOR  A  RIVER,  A 

C  DUMMY  BOX(I-l)  IS  USED. 

C 


SUBROUTINE  CURRT 

COMMON /CUR RENT /UBAR (10),  DMOVE, UTOT, UTX, UTY, UREL 
COMMON/MOVE/UPEAK ( 10 ) , XLE,  XTE,  VLE, YTE, DELT, TIME, TSTOP, TCHECK 
COMMON/CONTOUR/SHAPE,  X ( 1 0 > ,  Y(10),  XC, YC,  IC,  IW,  ISP,  XO, YO 
COMMON/CONSTAT /UC, VW,  UTBAR,  UO,  Ul,  WT.  ALPH, THETA 1 
COMMON. 'TRANSIT/UX( 10,  10). UY(10,  10), VWX(IO), 

1  VWY(IO),  THETA < 10  > , TI ( 10 ) >  ID,  IT,  IV, 

2  XU(10), YU(10), TT(10) 

COMMON/STYPE/SP ILLM, SPILMR, TSPILL,  US. STP, SPM 
COMMON/UAVE/UCX1, UCY1, VWX1, VWY1 
C 
C 

IF(IC.  EQ.  0.  AND.  IW.  EQ.  0)  CO  TO  999 
ISHAP  -  SHAPE 
IF  ( ISHAP.  CT.  1 )  00  TO  200 
C 

C  - 

C  IN  RIVERS  OR  CHANNELS 

C  - 

C 


IF  ( IC  EQ  1 )  GO  TO  60 
IF  (TSPILL.  OT.  WT)  CO  TO  50 

C  *«*««««««**»t**«««««««*««*«****«««*«*44«<*«***44*««*4*«*««««4**4 

C  AVERAOE  VALUE  OF  TIDAL  VELOCITY  OVER  ONE  TIDAL  PERIOD 

C  *■*•#*■•**•*•*****#***4  I444444444444444444444444444444444444444444444 


50 

C 

c 

c 


UC  -  UO 
GO  TO  60 
CONTINUE 

•444444444444444444444444444444444444444444444444444444444444444 


AVERAGE  VALUE  OF  TIDAL  VELOCITY  OVER  DISCHARGE  TIME 


»  >44444  44444444444444444444 


UC  -  U0+Ul*UT/6  283 1 8* ( -COS ( 6.  2831 B/WT* ( TSP ILL+ALPH ) ) 
1  +C05<6.  2831 S*ALPH/WT ) ) 

60  IF  (  IW.  LE.  1  )  GO  TO  70 

VWT  -  0. 

THET1T  -  0. 

DO  62  I  -  1,  10 

IF  (TSPILL.  LT  TT < I ) )  GO  TO  65 
VWT  -  VWT  *VWX ( I ) 


c-n 


0024 

0025 

0026 

0027 


0028 

0029 
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0031 


0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 


0045 


0046 

0047 

0040 

0049 

0050 

0051 

0052 

0053 


0054 


62 

65 


C 

C 

C 

C 


C 

70 

C 

C 

c 

c 

c 

c 

c 

200 


210 


240 

250 


C 

c 

c 

c 


300 


C 

c 

c 

c 


THET1T  -  THET1T  ♦  THETA ( 1 ) 

CONTINUE 

VW  -  VWX(I-l)  +  ( TSP ILL— TT  < 1— 1 ) >  *<  VWX ( 1 )— VWX  < I  — 1 ) ) /  I 

1  <  TT ( I ) -TT  < 1 - 1 )  )  i 

THETA  1  -  THETA <  1-1  )  (TSPILL-TT <  1-1 )  )*<THETA<  X  )-THETA<  1-1 )  ) 

1  /<TT( 1 )— TT < 1-1 ) ) 

**•**■*>***•*******•**■»•**■»**■»-**-****■*■»**■*■»■**-*-»**♦*♦•»*■»♦*-»**•*■»♦*••■»+*** 

,  TIME  AVERAGE  VALUE  CALCULATED  OF  WIND  AND  WIND  ANCLE  UP  TO 
END  OF  DISCHARGE  TIME 

****#***#***********HM>*HM»**HMHMM»#HM***-**-*-*-***-*****-#**-#  •*•***■*  •***■**•• 

VW  -  <  VWT +VW ) / 1 

THETA 1  •  (THET1T+ THETA 1 >/I 


UBAR<1)  -  UC  ♦  0. 035  *  VW  *  THETA 1 


00  TO  999 


IN  OPEN  WATER 


CONTINUE 

IF  (  IW.  OT.  1  )  GO  TO  210 
VWX1  -  VWX< 1 > 

VWY 1  -  VWY < 1 ) 

00  TO  300 

VWX1  -  0.  0  X- 

vwyi  -  o.  o  r 

DO  240  V  -  1,  10  ' 

IF  < TSP ILL.  LT.  TT ( J ) )  GO  TO  250 
VWX1  «  VWX1  ♦  VWX(J) 

VWYI  -  VWYI  f  VWY < J ) 

CONTINUE 

VWX1  •  VWX1  *  VWX(U-1 >*<TSPILL~TT<J-1 ) )*(VWX< J)-VWX( J-l ) ) 

1  / <  TT  <  J ) -TT ( J— 1  )  ) 

VWYI  -  VWYI  +  VWY  <  J—  1  ) •* < TBP ILL-TT (  J— 1  )  >  *  <  VWY <  J )  —VWY  ( J—  1  )  ) 

1  / ( TT  <  V ) -TT (J-l) ) 

TIME  AVERAGE  VALUE  OF  WIND  COMPONENTS  UP  TO  END  OF  DISCHARGE 
TIME 

VWX1  -  VWX1/U 
VWYI  -  VWY 1 /U 
CONTINUE 

IF  < IC. OT  1 )  GO  TO  310 
UU1  -  UX( 1,  1 ) 

UU2  -  UY  < 1 ,  1 ) 

UCX1  -  UU1 
UCY1  -  UU2 


COMMUTE  UBAR  WHEN  CURRENT  IS  CONSTANT 


UBAR(l)  -  SORT  (  (UU1+0.  035*VWX1  )  ■»*2+ <  UU2+0.  035*VWY1  )**2) 


C  - 1 2 


0055 

r 

THET A < 1 )  -  ATAN< (UU2+0.  035*VWY1 )/(UUl+0.  035*VWY1 ) ) 

0056 

w 

GO  TO  999 

0057 

310 

DO  390  1  -  1.9 

0058 

IF  <  IC.  CT.  2)  GO  TO  320 

0059 

UU1  -  UX(I,  1) 

0060 

UU2  -  UY ( 1 .  1 ) 

0061 

CO  TO  360 

0062 

320 

UU1  -  0.  0 

0063 

UU2  -  0.  0 

0064 

DO  340  J-l,  IT 

0065 

IF  (TSPILL.  LT.  TI ( J) )  CO  TO  350 

0066 

UU1  -  UU1  +  UX  (  I,  J) 

0067 

UU2  -  UU2  ♦  UY ( I . J ) 

0068 

340 

CONTINUE 

0069 

350 

UU1  -  UU1  >  UX  <  I,  J-l  )■*■(  TSP  ILL-TI  ( J-l )  )*<UX  ( I,  J)-UX  ( I,  J-l  >  ) 
1  /  (TI  <  J  >— TI  <  J- 1 )  ) 

0070 

UU2  -  UU2  +  UY< I. J-l )f (TSPILL-TI < J-l ) >*(UY( I, J>-UY< I, J-l ) ) 

1  /(TI < Jl-TI < J-l ) ) 

C  *****+#**************•*•**■#♦*•*•*■#■*•*•*•#•***•#•*■**■**■**#•***•*■*■*♦■**•*•#**■*-*•**■ 

C  COMPUTE  AVERAGE  CURRENT  IN  EACH  BOX  OR  SLICE 

C  *■*■»*■*■»♦*-****+**•*•»*****♦**•***■**#**#'•*•*****-»****■»■*-*-**•»+■****•*•*••■*■** 

0071  UU1  -UC’/J 

0072  UU2  -  UU  V  J 

0073  360  IF( I.  N£  JPJCOTO  380 

0074  UCX1  -  /J1 

0075  UCY 1  -  U/2 

C  ♦♦♦♦•*-***-»-##***#-**********+********#***-********-*-i>*-***-*-**-***-*****- 

C  COMPUTE  AVERAGE  UBAR  IN  EACH  BOX  OR  SLICE 

C  *******♦♦♦**♦**********#*#*■*•**•**•#•**•*■**+■*■**■*■*■*•**■*•*•#*•**•*■*•*•*■»*+■*■#*■ 

c  - 

0076  380  UBAR ( I )  -  SORT < ( UU1+0.  035*VWX 1 ) **2+ ( UU2+0.  035*VWY1 ) #*2 ) 

0077  THETA(I)  -  ATAN< (UU2+0.  035*VWY1 ) / (UU1+0.  035*VWX1 ) > 


0078 

0079 

0080 


C 

390 

999 


CONTINUE 

RETURN 

END 
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0012 
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C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  DISS 

C  THIS  SUBROUTINE  IS  USED  TO  COMPUTE  DISSOLUTION  LOSS 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  "INTE".  IT  CALCULATES  THE 

C  DISSOLUTION  MASS  TRANSFER  RATE  COEFFICIENT.  THE  RELATIVE 

C  WIND  IS  CALCULATED  IN  "TRANSP**. 

C  DISSOM  -  DISSOLUTION  MASS  TRANSFER  RATE  COEFFICIENT  <KC  /  SO.  M- 

C 

SUBROUTINE  DISS 

COMMON/SI ZE/R,  D. WW, LI. L2, H. RO 

COMMON/CHEMI /DENO. DCA, DCW. CS, CMW 

COMMON/WATER /DENW,  VISW.  OR 

COMMON/ENVOR/PV. VISA.  DENA. TDC 

COMMON/ INTER/COEF, SIOWA, SIOOA. SICOW,  SIC 

COMMON/CONSTAT/UC.  VW.  UTBAR,  UO.  Ul.  WT.  ALPH,  THETA  1 

COMMON/MLOSS/EVAPM,  DISSOM 

COMMON /MOVE/ UP EAK  < 10) . XLE.  XTE.  YLE,  YTE.  DELT,  TIME,  TSTOP,  TCHECK 
COMMON/CONTOUR /SHAPE,  X < 10) .  Y < 10) . XC.  YC,  IC.  IW,  ISP, XO, YO 
COMMON/TRANSIT/UX { 10.  10),  UY(10,  10), VWX(IO). 

1  VWY( 10), THETAC 10),  TI<  10),  ID.  IT.  IV, 

2  XU< 10),  YU( 10), TT( 10) 

COMMON/ ID/ ID1, ID2, ID3 

CQMMON/EVAOIS/DAN,  UXA,  SCHMIA.  CSA.  DUN.  UXW.  SCHMIW,  CSW 
COMMON/CURRENT/UBAR  (  10).  DMOVE,  UTOT,  UTX.  UTY,  UREL 
C 

DATA  01. 02,  D3.  D4,  D5,  D6.  D7,  D8/.  85,  1.  ,2.  35.  .  8.  .  065,  .  55,  .  2,  11.  2/ 

I  -  IW+1 

U  -  SHAPE  i 

C  i 

C  **  SCHMIW  -  SCHMIDT  NO.  FOR  WATER  **  j 

C 

SCHMIW  -  VISW/DCW 
CSW  *»  CS/DENW 


00  TO  < 10,  100,  100)  J 
C 

C  DISSOLUTION  IN  RIVERS  OR  CHANNELS 

10  CONTINUE 
C 

C  **  DUN  -  DALTON  NO.  FOR  RIVER  ** 

C 

DWN  -  0.  06266/ (SCHMIW**  (2.  /3.  )) 

K  -  IC  +  1 

00  TO  ( 11,  12,  13)  K 
C  -  NO  CURRENT  - 

11  DISSOM  -  0.  0 

00  TO  999 

C  -  CONSTANT  CURRENT  


C-14 


o  o 


0027 


CO  TO  20 


12 
C 

0028  13 
0029  20 
0030 

C 

c 

c 

c 

c 


0031 

100 

0032 

C 

0033 

110 

0034 

C 

0035 

120 

C 

0036 

0037 

C 

0038 

155 

C 

0039 

160 

C 

0040 

0041 

C 

0042 

0043 

0044 

165 

0045 

C 

C 

0046 

170 

C 

C 

c 

0047 

c 

c 

0048 

500 

c 

0049 

0050 

999 

-  TID  AL  CURRENT  - 

UC  *  U0+U1*SIN<2.  0*3.  141 59/WT* < TIME+ALPH ) ) 
UXW  -  UC/<5.  66*AL0C10<2.  0-*D/R0>+4.  92) 

CO  TO  500 


DISSOLUTION  IN  OPEN  WATER 


CONTINUE 

CO  TO  <110,  120,  120)  I 

-  NO  RELATIVE  WIND  - 

DISSOM  *0.  0 
CO  TO  999 

-  RELATIVE  WIND - 

IF  (UREL.  CT.  3.  064)  CO  TO  155 

• - UREL  .  LE  .  3.  064  METER/SEC - 

UXW  -  SORT < DENA/DENW) *UREL*5GRT < ( 1.  25E-3 > / (UREL**0.  2) ) 
CO  TO  160 

-  UREL  .  CT  .  3.  064  METER /SEC  - 

UXW  -  SORT < DENA/DENW >*UREL*SQRT< C D4+D5*UREL ) / 1000.  0) 

IF  (UREL.  CT.  5.  0)  *  JO  TO  165 

- UREL  .  LE  .  5.  0  METER/SEC - 

BW  -  12.  5*  <  SCHMI W**  <  2.  /3.  )  )+2.  125*AL0C  <  SCHrll  W ) -5.  3 
CO  TO  170 

- UREL  .  CT  .  5.  0  METER/SEC - 

CONTINUE 
SCT  -  D1 

HPLUS  «H*UXW/VISW 

BW  -  D6*( < SCHM IW+*< 2.  /3.  >> -D7 )*SQRT < HPLUS ) - 
2.  5*SCT*AL0C< HPLUS )+D8*SCT 


ZW  -  D2*UXW/VISW 

*-*  DUN  -  DALTON  NO.  FOR  OPEN  WATER  ** 
DWN  *  1 .  0/(2.  5*SCT*AL0G ( ZW )+BW+D3 ) 


DISSOM  =■  DWN  *  DENW  *UXW  *CSW 


RETURN 

END 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  EVAP 

C  THIS  SUBROUTINE  IS  USED  TO  COMPUTE  EVAPORATION  LOSS 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  "INTE".  IT  CALCULATES  THE 

C  EVAPORATION  MASS  TRANSFER  RATE  COEFFICIENT.  THE  RELATIVE 

C  WIND  IS  CALCULATED  IN  “TRANSP". 

C  HH»«**«****«*4HHH»******HHt4HHMHMMH>** 

C  EVAPM  -  EVAPORATION  MASS  TRANSFER  RATE  COEFFICIENT  <KC  /  SO.  M-S 

C 

SUBROUTINE  EVAP 

COMMON/SIZE/R. D. WW, LI,  L2,  H.  RO 

COMMON /CHEM I /DENO, DCA.  DCW, CS.  CMW 

COMMON/WATER/DENW,  VISW,  OR 

COMMON/ENVOR/PV. VISA,  DENA. TDC 

COMMON/ 1 NTER/COEF, SIOWA.  SIGOA. SIQOW.  SIS 

COMMON/CONSTAT/UC, VU, UTBAR, UO. Ul.  WT,  ALPH.  THETA 1 

COMMON/ ML  OS  S / EVAP  M ,  DISSOM 

COMMON/MOVE/UP EAK  < 10) ,  XLE, XTE,  YLE,  YTE,  DELT,  TIME.  TSTOP,  TCHECK 
COMMON/CONTOUR /SHAPE, X(10), Y<10).  XC,  YC.  IC,  IW»  ISP.  XO. YO 
COMMON /TRANS I T /UX  ( 10.  10),UY(10.  10). VWX(IO). 

1  VWY(IO),  THETA < 10).  TI ( 10).  ID,  IT,  IV, 

2  XU( 10), YU( 10). TT( 10) 

COMMON/ ID/ ID 1,  ID2,  ID3 

COMMON/EVADIS/DAN. UXA, SCHMIA, CSA,  DWN.  UXW,  SCHMIW,  CSW 

COMMON/CURRENT/UBAR < 10 > , DMOVE. UTOT,  UTX,  UTY,  UREL 

DATA  Dl,  02.  D3,  D4.  D5.  D6,  D7,  D8/.  85,  10.  ,  2.  35.  .  8.  .  065,  .  55.  .  2,  11.  2/ 

C 


0016 

IF<UREL.  EG.  0.  0)  THEN 

0017 

EVAPM  «•  0.  0 

0018 

GOTO  999 

0019 

ELSE 

0020 

END  IF 

0021 

IF  (UREL.  OT.  3.  064)  CO  TO  55 

C 

-  UREL  .  LE  .  3.  064  METER/SEC - 

0022 

UXA  -  UREL*SORT( ( 1.  25E-3 > / ( UREL**0.  2)> 

0023 

CO  TO  60 

C 

- UREL  .  CT  .  3.  064  METER/SEC - 

0024 

55 

c 

UXA  «  UREL*S(3RT(  < D4+D5*UREL >  / 1 000.  0) 

0025 

u 

60 

CONTINUE 

002o 

n 

HX  -  H  *  UXA  /VISA 

\0 

c 

r 

•+  SCHMIA  -  SCHMIDT  NO.  FOR  AIR  ** 

0027 

SCHMIA  »  VISA/DCA 

0028 

65 

C 

CSA  -  <PV*CMW/<B314.  32* < TDC+273.  15) ) ) /DENA 

0029 

C 

70 

IF  (UREL.  CT.  5.  0)  CO  TO  75 

C 

--  UREL  .  LE  .  5. 0  METER/SEC  - 

0030 

BA  «  12.  5*  (  5CHMI  A*-*  (  2.  /3.  )  >+2.  125*AL0C  ( SCHMIA ) -5.  3 

0031 

CO  TO  SO 

C 


UREL  .  GT.  5  0  METER/SEC 


u  o 


0032 


73 


1 


C 

0033  80 

0034 

0035 

C 

C 

C 

0036  83 

C 
C 

0037  100 

C 
C 

0038  999 

0039 


BA  -  D6*(SCHMIA**<2.  /3.  )-D7)*SQRT(HX)-2.  3*SCT*AL0C<HX ) 
+D8*SCT 

CONTINUE 

ZA  -  D2  *  UXA  /  VISA 
SCT  -  01 

**  DAN  -  DALTON  NO.  FOR  AIR  ** 

DAN  -  1.  0/(2.  3*SCT*AL00<ZA>+BA+D3> 


EVAPM  *  DAN  *  DENA  *  UXA  *  CSA 


RETURN 

END 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccj 

C  SUBROUTINE  FCN11  j 

C  SIMULTANEOUS  EQUATIONS  FOR  MODEL  1.  Ai 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCC 

THIS  SUBROUTINE  IS  CALLED  BY  "RUNKUT"  THROUCH  ” INTE".  IT  CONTAj 
THE  QRAV I TY— V I SCOUS  SPREADING  EQUATIONS  FOR  AN  INSTANTANEOUS 
SPILL  IN  A  R IYER. 


1 

2 


SUBROUTINE  FCNli  <N, TIME, YY. YPRIME) 

COMMON/SPREAD/TII,  ATK. HTK, ATN, HTN.  KMIN.  INDEXi  IFLAC 
COMMON/STYPE/SP ILLM,  SPILMR. TSPILL,  WS.  STP.  SPM| 

COMMON/CHEMI /DENO,  DCA,  DCW,  CS,  CMW 
COMMON/WATER/DENW,  UISW.  OR 
COMMON/ENVCR/PV, VISA,  DENA, TDC 
COMMON/SIZE/R,  D,  WW.  LI. L2,  H,  RO 
COMMON /ML OSS/EVAPM.  DISSOM 
COMMON/MASS/TOTALE,  TOTALD. TOTALM.  DMASS 
COMMON/ INTER/COEF, SIOWA, SIOOA. SIOOW,  SIC 
COMMON/CK/CIO,  C 20.  Cll. C21, C12, C22,  K10,  K20.  Kll,  K21. 

K12, K22 

COMMON/PR IM/PR IME ( 5 ) > IDEB, KKK 
REAL  YPR I ME  ( 5 ) » YY ( 5 ) 

REAL  K10,  K20, Kll, K21.  K12,  K22 
YPR IME < 4 )  -  EVAPM*YY < 1 ) 

YPR IME < 5 )  -  DISSOM* YY < 1 ) 

DLOSS  -  YPR IME  <  4 ) + YPR IME ( 5  > 

YPR IME (2)  -  2.  76*< ( < SI0*WW*WW/D£NW) **2/VISW> ** < 1.  /3.  ) ) 

/ <  YY  <  2 ) **  < 1 .  0/3.  0) ) 

YPR I ME < 1 )  «  2.  38*<C20**<8.  /3.  ) >*< <0R*WW*WW*C0EF)**2/VISW) 

**(  1.  /3.  )*  ( YY<  3)  **<  4.  /3.  )  >/(YY(  1  )**<  1.  /3.  >  ) 
-DLOSS/ <  2.  0*DEN0*YY ( 3 ) > 

j 

YPRIME<3)  -  -  (  YY  <  3 )  *  YPR  I  ME  ( 1  )  -fDLOSS/DENO )  /  YY  ( 1 ) 

DO  100  IID-1.5 

**  PRIME  ARE  VARIABLES  USED  IN  "CHEKMS"  ** 


PRIME! IID)»YPRIME< I ID) 
CONTINUE 
RETURN 
END 


C  - 1 8 
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e 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccJ 

C  SUBROUTINE  FCN12  1 

C  SIMULTANEOUS  EQUATIONS  FOR  MODEL  1.  B  I 

cccccccccccccccceccccccccccccccccccccccccccccccccccccccccccccccccccccccl 

c 

C  This  SUBROUTINE  IS  CALLED  BY  "RUNKUT"  THROUGH  " INTE”.  IT  CONTA 

C  THE  GRAVITY-VISCOUS  SPREADING  EQUATIONS  FOR  AN  INSTANTANEOUS  SP 

C  IN  OPEN  WATER. 

C 

SUBROUTINE  FCN12  <N, TIME, YY, YPRIME) 

COMMON/SPREAD/TI I,  ATK,  HTK,  ATN, HTN, HMIN,  INDEX,  I FLAG 

COMMON/STYPE/SP I LLM,  SPILMR,  TSPILL,  WS,  STP,  SPM 

COMMON/CHEMI /DENO,  DCA, DCW, CS. CMW 

COMMON/WATER/DENW, VISU, CR 

COMMON/ENVOR/PV, VISA,  DENA,  TDC 

COMMON/SIZE/R, D, WW. LI. L2, H, RO 

COMMON/MLOSS/EVAPM,  DISSOM 

COMMON/ INTER /COEF,  SIOWA, SIGOA. SICOW, SIC 

COMMON /CK/C 1 0,  C20, Cll,  C21, C12,  C22,  K10, K20,  Kll,  K21, 

1  K12, K22 

COMMON/PR IM/PRIMEC 5 ),  IDEB, KKK 
REAL  YPRIME (5), YY<5) 

REAL  K10. K20, Kll, K21 , K 12, K22 
P I “AC OS  < -1 .  ) 

YPRIME < 4 )  -  EVAPM*YY ( 1 ) 

YPRIME ( 5 )  -  DISSOM+YY ( 1 ) 

DLOSS  -  YPRIME < 4 )+ YPRIME ( 5 ) 

YPRIME <  2)  -  6.  02*< ( < SIC/DENW > **2/VISU > **< 1.  /3.  ) ) 

1  *<YY<2)**< 1. /3.  ) > 

C 

YPRIME  <  1  )  -  0.  5*  <  ( P I  *  ( K20**2.  >>*-*2.  )  *  (  (  <  CR*COEF )  *+2/VISW ) 

1  **<1.  /3.  )  )*(YY(3)**<4.  /3.  >  )*(  YY<  1  )**<  1.  /3.  )) 

2  -2.  /3.  *DLOSS/ <  DENO*YY  <  3 ) ) 

C 


0020 

0021 


YPRIME ( 3 )  -  -<YY(3)*YPRIME( 1 ) +DLOSS/DENO ) /YY< 1 ) 
DO  100  IID-1. 5 


C 

C  ♦♦  PRIME  ARE  VARIABLES  USED  IN  "CHEKMS"  *+ 


0022 

C 

PRIME  < I ID ) “YPRIME  < 1 1 D ) 

0023 

100 

CONTINUE 

0024 

RETURN 

0025 

END 

C-l  9 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccq 

C  '  SUBROUTINE  FCN21 

C  SIMULTANEOUS  EQUATIONS  FOR  MODEL  2.  A 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  “RUNKUT”  THROUGH  " INTE”.  IT  CONTAI 

C  THE  ORAVITY-VI SCOUS  SPREADING  EQUATIONS  FOR  A  CONTINUOUS  SPILL 

C  IN  A  RIVER  WITH  NO  CURRENT  OR  WIND. 

C 

SUBROUTINE  FCN21  <N.  TIME,  YY. YPRIME) 

COMMON/SPREAD/TII, ATK, HTK.  ATN. HTN.  HMIN.  INDEX.  I FLAG 

COMMON/STYPE/SPILLM. SPILMR. TSPILL.  WS.  STP,  SPM 

COMMON/CHEMI /DENG.  DCA.  DCW.  CS.  CMW 

COMMON/WATER/DENW,  VISW.  GR 

COMMON/ENVOR/PV. VISA.  DENA,  TDC 

COMMON/SI 2E/R,  D. WW, LX,  L2.  H,  RO 

COMMCN/MLOSS/EVAPM,  DISSOM 

COMMON/ I NTER/COEF, SIOWA, SIOOA, SIGOW. SIG 

COMMON / CH / C 1 C < C20, Cll. C21, C12. C22. KIO. K20.  Kll,  K21, 

1  K12. K22 

COMMON/PRIM/PR IMEO),  IDEB. KKK 
REAL  YPRIME(S),  YY(5) 

REAL  KIO. K20. Kll,  K21,  KX2,  K22 
YPRIME < 4 )  -  EVAPM*YY(1) 

YPRIME (3)  -  DISSOM*YY < 1 > 

DLOSS  -  YPRIME  <  4 ) ■*,YPRIME<  5 ) 

YPRIME  (2)  -  2.  76*  <  (  (SIO*WW/DENW )  **2/ VISW )  *-*  (  1 .  /3.  )> 

1  /<YY<2)**<  1.  0/3.  O)  > 

SPM-SP ILMR— OLOSS-DENO*HTN*YPR I ME  < 2 ) 

IF  <  SPM.  LE.  0.  0)  GOTO  998 
C 

YPRIME(l)  -  2.  38*<C21**<B.  /3.  ) )*< C (0R*WW*C0EF)**2/VISW) 

1  **<  1.  /3.  )  )*<YY<3)**<4.  /3.  >  >/<YY<  1  >•**<  1.  /3.  >  > 

2  -DLOSS/ <  2.  0  *DENO*YY ( 3 ) ) 

3  -O.  5*<HTN/YY(3) )*YPRIME(2) 

4  +  SPILMR/ <2.  0*DEN0*YY(3) ) 

C 

YPRIME ( 3 )  -  -<YY<3)*YPRIME< 1 )+HTN*YPRIME(2)+ 

1  DL0SS/DEN3-SPILMR/DENQ) /YY ( 1 ) 

998  DO  100  I ID-1, S 


*•  PRIME  ARE  VARIABLES  USED 


'CHEKMS" 


PR  I ME < I ID) "YPR IME ( I ID ) 
CONTINUE 
RETURN 
END 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

OOll 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 


0022 

0023 


0024 

0025 

0026 

0027 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  FCN22  C 

C  SIMULTANEOUS  EOUATIONS  FOR  MODEL  2.  B  ( 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  3Y  “RUNKUT"  THROUGH  "  INTE".  IT  CONTAU 

C  THE  CRAV1TY-VISC0US  SPREADING  EQUATIONS  FOR  A  CONTINUOUS  SPILL 

C  IN  OPEN  WATER  WITH  NO  CURRENT  OR  WIND. 

C 

SUBROUTINE  FCN22  <N, TIME, YY. YPR IME) 


COMMON/SPREAD/TI I , ATK, HTK,  ATN. HTN, HMIN.  INDEX,  I FLAG 

COMMON/STYPE/SP ILLM,  SPILMR, TSPILL,  WS,  STP,  SPM 

COMMGN/CHEMI /DENO.  DC A,  DCW,  CS.  CMW 

COMMON /WA TER /DENW, VISW, OR 

C  OMMON / EN VOR / P Y  ■  V I S A ,  DENA ,  TDC 

COMMON/SIZE/R,  D,  WW,  LI,  L2,  H,  RO 

COMHCN/HLOSS/EVAPM,  DISSOM 

COMMON/ INTER/COEF,  SIGWA,  SI  GOA,  SICOW, SIC 

COMMON/ CK/C 10,  C20,  Cll.  C21,  C12,  C22,  K10,  K20.  Kll,  K21, 

1  K12,  K22 

CONHON/PR IM/PR IME < 5 > >  IDEB,  KKK 
REAL  YPR IME ( 5 ) , YY<5> 

REAL  K10,  K20,  Kll,  K21,  K12,  K22 
P I— ACOS  <  —  1 .  ) 

YPR IME < 4 )  -  EVAPM*YY ( 1 ) 

YPR IME ( 5 )  -  DISSOM*YY ( 1 ) 

DLOSS  -  YPR IME ( 4 ) + YPR IME ( 5 ) 

YPRIME<2)  -  6.  02*< < ( SIC/DENW)  **2/VISW )  *■*  < 1.  /3.  )) 

*  <  YY  ( 2 )  *-*  <  1.  /3.  )  ) 

SPM-SP ILMR-DLOSS-DENO*HTN*YPR IME ( 2 ) 

IF  <  SPM.  LE.  0.  0)  GOTO  998 

YPR  IME  ( 1 )  -  0.  5*<  <PI*K21*+2.  >*-*2.  )*(  <  ( GR*COEF )  ^♦2/VISW ) 
*+(  1.  /3.  )  )-i*(YY(3)**(4.  /3.  )  >*<YY<  1  )**(  1.  /3.  )  ) 
-2.  /3.  * DLOSS/ ( DENO*YY ( 3  > ) 

-2.  /3.  * < HTN/YY ( 3 ) )*YPRIME<2) 

+  2.  /3.  *SPILMR/(DEN0*YY(3) ) 

YPR IME < 3 )  -  -<YY<3)*YPRIME( 1 > +HTN*YPR IME < 2 )  + 
DLOSS/DENO-SP ILMR/DENO ) /YY ( 1 ) 

DO  100  I  ID—  1 ,  3 

**  PRIME  ARE  VARIABLES  USED  IN  "CHEHMS"  ** 

PRIME! I ID) -YPR IME < I  ID) 

CONTINUE 
RETURN 
END 


1 


C 

1 

2 

3 

4 
C 

1 

990 

C 

C 

C 

100 

999 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccca 

C  SUBROUTINE  FCN41 

C  SIMULTANEOUS  EQUATIONS  FOR  MODEL  4A  j 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccd 
c  i 

C  THIS  SUBROUTINE  IS  CALLED  BY  “RUNKUT"  THROUGH  "  INTE".  IT  CONT) 

C  THE  GRAVITY— VISCOUS  SPREADINO  EQUATIONS  FOR  A  CONTINUOUS  SPILL 

C  A  RIVER  WITH  CURRENT  OR  WIND. 

C  ' 

SUBROUTINE  FCN41  <N. TIME. YY. YPRIME) 

COMMON/CONSTAT/UC. VW. UTBAR. UO. Ul. WT. ALPH, THETA 1 
COMMON/SPREAD/TI I. ATK. HTK. ATN. HTN.  HMIN.  INDEX.  IFLAC 
COMMGN/STYPE/SPILU1.  SPILMR. TSPILL.  WS. STP. SPM 
COMMON/CHEMI/DENO.  DCA,  DCW.  CS.  CMW 

common/water/denW,  view,  or 

COMMON/ENVOR/PV. VISA,  DENA,  TDC 

COMMON/SI 2E/R.  D, WW, LI, L2,  H. RO 

COMMON/MLOSS/EVAPM,  DISSCM 

COMMON/ 1 NTER/COEF, SIOWA,  SICOA, SIOOW, SIO 

COMMGN/CK/CIO.  C20. Cl t, C21,  C12, C22,  KIO,  K20,  Kll,  K21, 

1  K12, K22 

COMHON/PR IM/PR IME< 3) . IDEB. KKK 
REAL  YPR I ME  <  3 ) , YY ( 5 ) 

REAL  KIO. K20, Kll, K21. K12,  K22 
YPR IME < 4 )  «  EVAPM*YY ( 1 ) 

YPRIMEO)  -  DISSOM*YY(l) 

DLOSS  -  YPR IME  <4) +YPR IME (  3 ) 

15  SPILLW  -  WW 

C 

20  YPRIME < 2 )  -  2.  76*<<<SI0*WW/DENW)**2/VISWMHM1.  /3.  )) 

1  / < YY ( 2 ) ** < 1 .  /3.  )) 

SPM-SP I LMR-DLOSS- DENO*HTN* YPR I ME  <  2 ) 

IF(SPM.  LE.  0.  O)  COTO  998 
C 

YPRIME(l)  -  2.  38*<C22**<8.  /3.  > )*< (CR*WW*C0EF)*+2/VISW>**< 1.  /3. 

1  *  ( YY  O  >  *■*  ( 4.  /3.  )  >  /  \  YY  (  1  )  *•*  ( 1 .  /3.  )  ) 

2  -DLOSS/ <  2.  0*D€N0*YY O  >  ) 

3  -O.  3*(HTN/YY(3) )*YPRIME<2> 

4  «•  SP I LMR /  ( 2.  0*D£NO*YY ( 3 )  )  +  SPILLW  *  UTBAR 
C 

YPRIMEO)  -  -<YY(3)*YPRIMEU  )-*+fTN*YPRIMEO)  + 

1  DLOSS/DENO-SPILMR/DENO) /YY< 1 ) 

998  DO  100  IID-1,  3 

C 

C  *-*  PRIME  ARE  VARIABLES  USED  IN  "CHEKMS"  ** 


PR IME < I ID ) “YPRIME ( I ID  > 
CONTINUE 
RETURN 
END 


C- 22 


CCCCCCCCCCCCCCCCCCCCCC'':CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  |  SUBROUTINE  FCN42 

C  SIMULTANEOUS  EQUATIONS  FOR  MODEL  48 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c  i 

C  THIS  SUBROUTINE  IS  CALLED  BY  "RUNKUT“  THROUGH  " I NTE H  IT  CONT 

C  THE  EQUATIONS  FOR  GRAVITY-VISCOUS  SPREADING  OF  A  CONTINUOUS  SP 

C  IN  OPEN  WATER  WITH  A  CURRENT  OR  WIND. 

C  i 

SUBROUTINE  FCN42  ( N, T ’ME. YY, YPR IME ) 

COMMON/CONSTAT/UC, VW, UTBAR, UO.  Ul,  WT, ALPH,  THETA  1 

CCMMON/3PREAC/TI  I,  AT.*,  HTK  ATN. HTN. HMIN. INDEX, I FLAG 

COHHON/STYPE/SPILLM.  SFILW*.  T8P1LL,,WS.  STP,  SPM 

COMMON/CHEMI/DENO.  LCA.  DCW, CS. CMW 

COMMON / WATER /DENU,  VISU,  OR 

COMMON /ENVOR/PV, VISA, DENA, TDC 

COMMON/SI ZE/R.  D,  WW,  LI,  L2.  H.  RO 

COMMON/MLOSS/EVAPM,  DISSGM 

COMMON/ INTER /COEF, SIOWA, SIOOA, SIOOW, SIC 

COMMON /CK/C  lO.  C20,  Cll,  C21,  C12,  C22,  KIO,  K20,  KU,  K21, 

1  K12-K22 

COMMON/PRIM/PR  IMEO),  IDEB.  KHK 
REAL  YPR I ME ( 3 ) , YY ( 5 ) 

REAL  *10.  K20,  HI  1 ,  K21.  HI 2,  K22 
YPR IME  <  4 )  -  EVAPM* YY  < 1 ) 

YPR IME ( 3 )  -  DISSOM*YY< 1 ) 

DLOSS  -  YPR IME < 4 ) ♦YPR IME ( 5 ) 

C 

YPR  IME  <  2 )  -  2.  06*  <  (  (SIQ* < UTBAR**2 >  /DENW )  *-*2/VISW  >  *•*  <  1.  /7.  )> 

I  !  * ( YY <  2 )  *•  <  3.  /7.  >  ) 

C 

SPM  -  SPILMR  -  DLQSS-D£NO*HTN-*YPR IME (  2 ) 


IF  <SPM.  LE.  0.  0)  CO  TO 


YPR  IME  <  1  )  -  <1 1.  /8.  >*<K22**(B.  /1 1.  )  HM  < (0R*C0EF*(UTBAR**2> 5**3 
/VISW)**<  1.  /II  )  >♦<  (SPM/ <2.  0*DEN0)  >**<4.  / 1 1 .  )  ) 

*  <  YY  (  1  )  **<  3.  / 1 1 .  )  ) 


YPR IME ( 3 >  -  - < YY ( 3 > * YPR IME ( 1 ) +HTN*YPR IME ( 2 )  + 
DLOSS/DENO-SP ILMR/DENO) /YY ( 1 ) 

DO  100  IID-  1,  5 

*■*  PRIME  ARE  VARIABLES  USED  IN  “CHEKMS"  •** 


PRIME(  I  ID > -YPR IME (  IID) 
CONTINUE 
RETURN 
END 
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>v 

N-V 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccc 


C 

SUBROUTINE  GROUND  IS  USED  TO  C 

C 

DETERMINE  WHETHER  THE  SLICK  HAS  HIT  C 

C 

THE  BOUNDARY  LINE(S)  C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

THIS  SUBROUTINE  IS  CALLED  BY  •‘SPREAD":  IT  DETERMINES  IF 

THE 

c 

SLICK  HAS  HIT  THE  COASTLINE.  IF  IT  HAS  HIT,  IT 

RETURNS 

c 

IH-99 

c 

OTHERWISE,  IT  RETURNS 

c 

r 

IH«0 

OOOl 

SUBROUTINE  GROUND! IH) 

0002 

• 

COMMON/SI ZE/R, D, WW, LI,  L2,  H,  RO 

0003 

COMMON/MOVE/UPEAK ( 10) ,  XLE,  XTE, YLE,  YTE,  DELT,  TIME, 

TSTOP, TCHECK 

0004 

COMMON/CONTOUR/SHAPE, X(10), Y<10>.  XC,  YC,  IC,  IW,  ISP. XO, YO 

0003 

♦ 

COMMQN/STYPE/SP I LLM,  SPILMR, TSPILL.  US,  STP,  SPM 

0006 

COMMON/RUNOE/ YY  <  3 ) , C  (24  ) ,  W  (  3,  30) 

0007 

COMMON/CONSTAT/UC, UW, UTBAR, UO. Ul,  WT,  ALPH,  THETA1 

0008 

I STP  -  STP 

0009 

IH  -  0 

0010 

PI  -  3.  141392 

0011 

IF  (STP.  EQ.  4.  2)  00  TO  7 

c 

*•»  IF  STP  IS  NOT  4.  2,  ALL  OPEN  WATER  SLICKS  ARE 

CIRCULAR 

c 

r 

*•*  SO  COMPUTE  RADIUS  OF  SLICK  -  RAD 

«-» 

0012 

RAD  -  SORT  <  YY  < 1 )/PI ) 

0013 

r 

GO  TO  9 

c 

**  IF  STP  IS  4  2,  SLICK  IS  TRIANOULAR.  SO  COMPUTE  WIDTH  - 

RAD 

0014 

7 

RAD  YY( 1 )/<UTBAR*TIME) 

0013 

XC  -  XLE 

0016 

YC  -  YLE 

0017 

9 

IF  (SHAPE.  EQ.  3.  2.  OR.  SHAPE.  EQ.  2.  3)  00  TO  10 

0018 

00  TO  100 

c 

#**■ IH 

c 

FOR  ARBITRARY  LAKE  OR  COAST,  COMPUTE  DISTANCE  FROM  LEADING 

c 

EDOE  (CONT. )  OR  CENTER  (INST. )  OF  SLICK  TO  EACH 

BOUNDARY 

c 

POINT,  AND  DETERMINE  IF  RAD  >  THE  DISTANCE.  IF 

SO,  SLICK 

c 

HAS  HIT  COAST 

c 

0019 

10 

DO  20  1-1 ,  10 

0020 

23 

XI  -  ( XC-X ( I ) ) *< XC-X ( I ) >*( YC-Y( I ) )*( YC-Y( I ) ) 

0021 

20 

IF  ( <R**2).  OT.  XI )  CO  TO  30 

0022 

GOTO  40 

0023 

30 

IH  -  99 

0024 

00  TO  999 

0023 

40 

M 

I 

■ 

o 

0026 

00  TO  999 

0027 

30 

IDH  -  1 

0028 

CO  TO  23 

c  **************+**************************,***********#********< 

C  FOR  A  STRAIOHT  COAST,  COMPUTE  DISTANCE  FROM  LEADING  EDGE  (CONT. 


r. 

n 
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0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 


0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 


0061 

0062 

0063 

0064 

0065 


C 

C 

C 

100 

120 


200 

C 

c 

c 

c 

c 


212 

213 

214 

215 


220 


300 

C 

c 

c 

c 

c 


999 


OR  CENTER  (INST.  )  TO  STRAIGHT  LINE  AND  DETERMINE  IF  RAD  >  DISTANT 
IF  SO,  SLICK  HAS  HIT  COAST. 

•*********«*«*  **«****•***«***'•'»'•***  ************-»***'»**'•-»**'»*-»-»** 

IF  (SHAPE.  NE.  3.  1)  GO  TO  200 
SS  -  <Y(2)-Y(1))/(X(2)-X(1>) 

XI  -  <SS*(YC-Y<1 ) )fX(l )#SS*SS- *C > /(SS*SS+1.  0) 

Y 1  -  <SS*< XC-X( 1 ) >+YC*SS**2+Y' t ) >/(SS**2+l.  0) 

SS  -  < XC-X1 )*<XC-X1 )+ (YC-Y1 )*( YC-Y1 ) 

IF  ( (RAD**2).  LE.  SS )  GO  TO  999 
IH  -  99 
CO  TO  999 

IF  (SHAPE.  NE.  2.  2)  CO  TO  300 

#•***■**•**•#*-***•**-*♦##■***■******■»**•*•*•»#***#*♦****■**************■*•»**■• 

FOR  A  RECTANGULAR  LAKE,  CHECK  DISTANCE  FROM  LEADING  EDGE  (CONT.  ) 
OR  CENTER  (INST. )  TO  ALL  4  EDOES  AND  DETERMINE  IF  RAD  >  DISTANCE. 
IF  SO,  SLICK  HAS  HIT  COAST. 

************•*■*•*♦■*•*■**■*■***•**'*■<►♦****-***•**•*-**■*■*■*•#•*-»*•**•**■**•*■*■*•***•*•**-* 


DO  220  1-1,4 

IF  (  I.  EQ.  4)  CO  TO  214 

IF  (  I.  EQ.  3)  GO  TO  213 

IF  ( I  EQ.  2)  CO  TO  212 

Xl-XC 

Yl-O.  0 

GOTO  215 

X  1-FLOAT (LI) 

Yl-YC 
GOTO  215 
Xl-XC 

Y 1 -FLOAT (L2) 

GOTO  215 
Xl-0  0 


Yl-YC 

SS  -  < XC-X1 )*( XC-X1 >  +  (YC-Yl  HMYC-Y1 ) 

IF  < (RAD**2>  LE.  SS )  GO  TO  220 

IH  -  99 

CO  TO  999 

CONTINUE 

IH  -  0 

CO  TO  999 

CONTINUE 


►  ■*■#-**•*•**•*■*■#*■#■**•»** 


IF  (RAD  +  OFFSET  OF  LEADING  EDGE  (CONT.  )  OR  CENTER  (INST.  )  OF 
SLICK  FROM  CENTER  OF  CIRCULAR  LAKE)  >  RADIUS  OF  LAKE, 
SLICK  HAS  Hr  THE  COAST. 


XI  -  RAD  *  SQRT( ( XC-XO)*< XC-XO)+( YC-YO)*( YC-YO) ) 
IF  <  X<  ’_£.  R  )  CO  TO  999 
Ih  -  99 
RE  URN 


TNI) 


C  -  2  5 


0001 

0002 

0003 

0004 

0005 


0006 

0007 

0008 


0009 

0010 

0011 


0012 

0013 


0014 

0013 

0016 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  INIT  C 

C  THIS  SUBROUTINE  MANIPULATES  AND  DETERMINES  WHICH  C 

C  SUBROUTINE  SHOULD  BE  USED  TO  CALCULATE  INITIAL  CONDITION  C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  "SPREAD".  IT  CALLS  ONE  OF  4 

C  SUBROUTINES  TO  COMPUTE  EITHER  THE  END  OF  THE  CR  AV I TY- INERTIAL 

C  PHASE  OF  SPREADING,  OR,  FOR  A  RIVER,  THE  TIME  REQUIRED  FOR  THE 

C  SLICK  TO  SPREAD  ALL  THE  WAY  ACROSS  THE  RIVER  WIDTH.  IT  WILL 

C  RETURN  WITH 

C 

C  *  TII  -  INITIAL  TIME  FOR  USE  IN  MAIN  INTEGRATION  ROUTINE  OF 

C  GRAVITY-VISCOUS  SPREADING 

C  *  ATK  «’ INITIAL  VALUE  OF  THICK  SLICK  AREA 

C  *  ATN  -  INITIAL  VALUE  OF  THIN  SLICK  AREA 

C  *  HTK  -  INITIAL  VALUE  OF  THICK  SLICK  THICKNESS  j 

C  #•**•*•*•*#*•**■**•**#**####•#♦****♦*****■***#* 

SUBROUTINE  INIT 
C 

COMMON/STYPE/SPILLM,  spilmr,  TSPILL.  ws,  stp,  spm 

c 

10  IF  (STP.  EQ.  1.  2.  OR.  STP.  EQ.  2.  2)  GO  TO  30 

IF  (STP  EQ.  1.  1  OR.  STP.  EQ.  2.  1)  GO  TO  40 
IF  (STP  .  EQ.  4.  2)  00  TO  30 

C  MUST  BE  MODEL  4.  A  (USE  INITIAL  4.  A) 

C  **  CONTINUOUS  SPILL  IN  RIVER.  VELOCITY  >  0  *-* 

C 

20  CALL  INIT4A 

IF  (STP.  EQ.  1.1)  GO  TO  10 
GO  TO  99 

C  USE  INITIAL  4. B 

C  *■*  CONTINUOUS  SPILL  IN  OPEN  WATER.  VELOCITY  >  0  *■» 

C 

30  CALL  INIT4B 

IF  (STP  EQ.  1.  2)  00  TO  10 
GO  TO  99 


C  USE  INITIAL  1.  2.  A 

C  *•*  INSTANTANEOUS  OR  CONTINUOUS  SPILL  IN  RIVER.  IF  CONTINUOUS,  * 

C  **  VELOCITY  ■  0.  * 

C 

40  CALL  INT12A 

00  TO  99 

C  USE  INITIAL  1.  2.  B 

C  **  INSTANTANEOUS  OR  CONTINUOUS  SPILL  IN  OPEN  WATER.  IF  CONTINUO 

C  **  VELOCITY  -  0. 

C 

30  CALL  INT12B 

C 

99  RETURN 

END 


C  -  26 


0001 


SUBROUTINE  INT12A 


**********-****-**-*******-****-*-#*'*****#***#-******-***-**'*'#*-*****-**-»*1 

*  CALCULATE  INITIAL  CONDITIONS  FOR  MODELS  1A  S<  2A  < 

*  INSTANTANEOUS  OR  CONTINUOUS  IN  RIVER  OR  CHANNEL  < 

*  IF  SPILL  IS  CONTINUOUS.  UTBAR  MUST  BE  ZERO  « 

*•##■*•*•******•*  **********-*#-****-*#****-*#***-***-*-#**-*-**-**-*-***-#**'**-*-*<M 

THIS  SUBROUTINE  IS  CALLED  BY  "INIT".  IT  CALCULATES  THE  INITIAL 
CONDITIONS  FOR  INSTANTANEOUS  OR  CONTINUOUS  SPILLS  IN  A  CHANNEL. 
FOR  A  CONTINUOUS  SPILL.  THE  CURRENT  AND  WIND  MUST  BE  ZERO; 
OTHERWISE,  “ INIT4A"  WILL  BE  CALLED. 

COMMON/STYPE/SP I LLM, SPILMR. T8PILL.  WS.  STP,  SPM 
COMMON/CHEMI/DENO, DCA,  DCW,  CS.  CMW 
CQMMON/WATER/DENW,  VISW,  OR 
COMMON/ENVOR/PV, VISA,  DENA, TDC 
COMMON/ INTER/COEF, SICWA,  SIOOA,  SIOOW.  SIC 
COMMON/SPREAD/TI I , ATK, HTK,  ATN.  HTN.  HMIN.  INDEX,  I FLAG 
COMMON/SIZE/R, D, WW,  LI,  L2,  H,  RO 
COMMON/RUNQE/ YY (  5  > , C  <  24  > ,  W  <  3.  30  ) 

COMMON/MOVE/UPEAK (10), XLE, XTE. YLE, YTE, DELT, TIME, TSTOP, TCHECK 
COMMON/CONTOUR /SHAPE, X(10>. Y(10), XC. YC, IC, IW, ISP, XO, YO 
C0MM0N/UAVE/UCX1,  UCY1,  VWX1,  VWY1 
COMMON/PR IM/PR I ME  <  3  > ,  IDEB, KKK 

COMMON/SENSE/EVA (40,  10),  DIS(40,  10), THK<40,  10). TIN(40,  10), 

PIP (40), TPT 

COMMON/CK/C  10,  C20,  CU,  C21,  C12,  C22,  K10.  K20,  Kll,  K21, 

K12, K22 

COMMON/CONSTAT/UC. VW, UTBAR. UO, Ul,  WT,  ALPH,  THETA 1 
REAL  K10, K20. K1 1,  K21,  K12,  K22 

*+  STP  -  1.  1  (INST.  )  OR  2.  1  (CONT.  )  FOR  THIS  SUBROUTINE  (RIVERS! 

I  -  STP  .1 

P I *ACOS ( — 1 .  ) 

CO  TO  (201, 101 )  I  i 

-  MODEL  2A  IS  BEING  USED  - 

***  (CONTINUOUS  SPILL  IN  THE  CHANNEL)  *■** 


TIA  -  < (SPILMR/ (DENW*WW) )**2/(CR*C0EF*V I SW**(3.  /2.  )))**( 2.  /3.  ) 
*( (C21/C1 1 ) **S.  > 

*-*  TIA  -  END  OF  GRAVITY- INERT  I A  SPREADING  FOR  A  CONT.  SPILL  ** 

IF  (TIA. GE.  TSPILL)  SO  TO  110 
GO  TO  210 
WRITE  (1,112) 

WRITE  (6, 1 12) 

FORMAT  (1H1//1X, 

30H*****-*  •*■*■»-**■*•*•**■*•»*■<»«•*•»■*•*■**-*•*■*•*■*•*■*•*•**•*•*■* -*•*•**■*■**•***-*/ 

1 X , 48HTHE  SPILL  TIME  IS  SO  SHORT  THAT  AN  INSTANTANEOUS,/ 

1X.31H  SPILL  WILL  GIVE  BETTER  RESULTS) 


C -27 


0027 

0026 


0029 

0030 

0031 


0032 

0033 


0034 


0035 

0036 


0037 


0038 

0039 

0040 


C 

C 

C 


C 

c 

c 

c 

201 


c 

c 

c 

210 

C 

C 

c 

c 

c 

c 

c 

c 

220 

c 

c 

c 

c 


c 

c 

c 

c 


*•*  SPILL  IS  SWITCHED  TO  INSTANTANEOUS  WITH  ** 

**  SPILLED  MASS  -  DISCHARGE  RATE  *  DISCHARGE  TIME  ** 

STP  -  1.  1  -] 

SPILLM  -  SPILMR  *  TSPILL  | 

1 

-  MODEL  1A  IS  BEING  USED -  | 

**  (INSTANTANEOUS  SPILL  IN  THE  CHANNEL)  ** 

CONTINUE 

VO  -  SPILLM/DENO 

TIA-< <V0/WW)**4.  /<<VISW**3.  ) * < QR*COEF ) *+2.  ))**<1.  /7.  )* 

*  < <C20/C10>**<24.  n.  ) > 

**  TIA  -  END  OF  GRAVITY-INERTIA  SPREADING  FOR  AN  INST.  SPILL  ** 

I  -  STP 

GO  TO  ( 240. 220 )  I 

- CALCULATE  TIB  AND  RIB  BY  USING  MODEL  2B  - 

(2A  IS  THE  CURRENT  MODEL) 

****#**-*-*-*#*1*-****-**-**'*#**-**-)M»-#'*-IHHMf *4«44« *-*-*■*■»*•»■**•»**•»*■»  ■»**■*■&*** 

FOR  A  CONTINUOUS  SPILL,  USE  OPEN  WATER  MODEL  TO  COMPUTE  TIME 
FOR  SPILL  TO  SPREAD  ACROSS  RIVER.  FIRST,  COMPUTE  THE  CONDITIONS 
AT  END  OF  GRAVITY- INERT  I A  PHASE  FOR  OPEN  WATER. 

HIM  »««■»««■»«♦■»*««♦««■>«■»■»♦♦■»♦« 

TIB  -  SORT ( SPILMR  /  ( GR*COEF*DENW*VISW)  ) *<  < K21  /K1 1  ) **6.  ) 

**  TIB  -  END  OF  GRAVITY- INERTIAL  PHASE  FOR  A  CONT.  SPILL  ** 

**  IN  OPEN  WATER  ** 

AIB  •  <  <  <SPILMR/DENW)*-*5/<VISW**3*GR*C0EF)  )**0.  25)* 

*  <PI*C21**2.  *<C21/C20>**7.  > 

RIB  -  SORT  ( AIB/P I ) 

**  RIB  -  RADIUS  OF  OR AV I TY- INERTIA  PHASE  SLICK  FOR  CONT.  *-* 

**  SPILL  IN  OPEN  WATER  ** 

00  TO  260 

- CALCULATE  TIB  AND  RIB  BY  USING  MODEL  IB  - 

< 1A  IS  THE  CURRENT  MODEL) 

♦♦■•♦♦♦♦•♦■a***#**'****************'********-**********'*******'****-*** 

FOR  AN  INSTANTANEOUS  SPILL,  USE  OPEN  WATER  MODEL  TO  COMPUTE  TIME 
FOR  SPILL  TO  SPREAD  ACROSS  RIVER.  FIRST,  COMPUTE  THE  CONDITIONS 
AT  END  OF  GRAVITY-INERTIA  PHASE  FOR  OPEN  WATER. 

TIB  -  <VO/<OR*COEF*VISW) )**<1.  /3.  >*< (K2C/K 10) **4.  ) 

AIB  -  <V0**<2.  /3.  ))  *  <GR-*va*C0EF/(VISW«~*2)  )**<  1.  '6.  >* 

*  <  P I *K20**2.  *  <  K20/K 1 0 )  **3.  ) 

RIB  -  SORT ( A  IB /3.  141593) 

**  TIB  -  END  OF  GRAVITY-INERTIA  PHASE  FOR  INST.  SPILL  IN  ** 

«*  OPEN  WATER  ** 

*■*  RIB  -  RADIUS  OF  GRAVITY-INERTIA  PHASE  SLICK  FOR  INST.  ** 


C-28 


C  **  SPILL  IN  OPEN  WATER  ** 

C 

0041  260  CONTINUE 

0042  IF  (RIB.  LT.  (WW/2  0))  CO  TO  400 

C 

C  *******#****«**■***#♦***♦*********+***■**•*■#■#*■*■»■**#•*•*■*•*•*•*•*•#•**■**•***•* 

C  IF  RIB  <  WW/2,  THE  SLICK  WILL  SPREAD  SOME  MORE  AS  AN  OPEN 

C  WATER  SLICK,  BUT  NUMERICAL  INTEGRATION  IS  REQUIRED. 

C  m*'*#***-**'***-#*****-**#-**#*-#-*-**-*-***-#*'********-***#*********-#*#*#-*-** 

c 

0043  IF  (TIB.CE. TIA)  GO  TO  280 

C 

C  ***  v*  ■**#■*■*•*•*■#■*•*.#•*■*■*■*  *•*■*•#■#•*  ■*•#■**■»*■»■*■*•**•# -nnf******  #•*-**■#•*■*♦-*-*•*•*-*■**** 

C  IF  TIB  >  TIA,  OPEN-WATER  SLICK  HAS  SPREAD  ALL  THE  WAY  ACROSS 

C  RIVER,  BUT  NEED  TO  REDUCE  TIME  SOME  TO  FIND  ACTUAL  TIME  TO 

C  SPREAD  ACROSS  RIVER. 

C  *•*********+**•*■**•**•********#•*•**•*•*•#***•*■*■*■*•**•***♦*+■*•*■*•*•*•*•*•*■*•*■»*•**#* 

c 

0044  TII  -  TIA 

C 

C  **  TIB  <  TIA,  SO  INITIAL  TIME  TII  -  TIA  ** 

C 

0043  CO  TO  (261,262)  I 

C 

C  USE  MODEL  1A  TO  COMPUTE  INITIAL  AREA  AND  THICKNESS 

C 

0046  261  ATK-2.  *C20*(  (  C20/C  1 0  >  *•*  ( 9.  /7.  )  )*<  <V0*-*4.  *WW**2.  >  **(  1.  /7.  )  )* 

*  < <CR*C0EF*V0/VISW**2.  )**(!.  /7.  )) 

0047  HTK  -  VO/ATK 

C 

C  *•*#*#********•******■*#**+****************■**-********************** 

C  ATK  AND  HTK  ARE  INSTANTANEOUS  SPILL  THICK  SLICK  AREA  AND 

C  THICKNESS  AT  TIME  SLICK  HAS  SPREAD  ACROSS  RIVER. 

C  *♦#************■******#****•#*•**•#■**■*•*■*■*•*•*■*•**•*•*■#•**•#•***•*•**'*•*■»**-*•**■»* 

c 

0048  IF ( IC.  CE.  2 )  GOTO  265 

C 

C  *+*******+****+*•*■*#*****************+***■**•*#■#+■*■*•*-*-*-*-»•*•*-*•*•*-*■*•*•»♦-* 

C  XC  -  NEW  SPILL  CENTER  LOCATION  XC  AFTER  BEING  TRANSPORTED 

C'  DOWNSTREAM  (INSTANTANEOUS) 

C  ******♦#+****•*■»•*•*■**#***■*•*•*■*•#-*■*•**■*■*■**■*•*•»■-***-#•*■*■**•■•*■*#•*•**+-*-*■**•**■**** 

c 

0049  XC-XO  +  (UCX1+0  025*VWX1 >*TIA 

0050  GOTO  270 

0051  265  XC-XO+(UO*TI A-(WT/ (2.  *PI*TIA) >*<C0S(2.  *P I  * ( TI A+ACPH ) /WT ) 

1  -COS ( 2.  *PI*ALPH/WT) )+0.  035*VWX1 )*TIA 

0032  GO  TO  270 

C 

C  USE  MODEL  2A  TO  COMPUTE  INITIAL  AREA  &  THICKNESS 

C 

0033  262  ATK  -  2.  *C21 * ( ( C21 /C 1 1 ) **7.  ) * ( WW* ( SP ILMR/ < WW*DENW) ) ** ( 3  /3.  ) / 

1  ( VISW-M C!R*COEF )■•►*(  1 .  /3.  ))) 

0034  HTK  -  <SPILMR*T] I-DEN0*8.  0*ATK*HTN)/(DEN0*ATK) 

C 

C  *•*■***«  in********************************************************* 


C -29 


ATK  AND  HTK  ARE  CONTINUOUS  SPILL  THICK  SLICK  AREA  AND  THICKNESS 
AT  TIME  SLICK  HAS  SPREAD  ACROSS  RIVER. 


ATN  -  8.  0*ATK 

«*  ATN  -  THIN  SLICK  AREA  ** 

00  TO  300 
CONTINUE 

TII  -  TIB  #  SORT ( WW/ ( 2.  0*R IB  > ) 

ATK  -  AIB*TI I /TIB 

**  INITIAL  TIME  AND  AREA  WHEN  RIB  >  WW/2  AND  TIB  >  TIA.  ** 

00  TO  (281.282)  I 

USE  MODEL  1.  A  TO  CALCULATE  INITIAL  THICKNESS( INSTANTANEOUS) 

HTK  -  VO/ATK 
00  TO  285 

USE  MODEL  2.  A  TO  CALCULATE  INITIAL  THICKNESS  AND 
CORRECT  FOR  MASS  IN  THIN  SLICK ( CONTINUOUS ) 

HTK  -  (SPILMR*TII-DENO*B.  0*ATK*HTN)/(DENO*ATK> 

CONTINUE 

ATN  «  8.  0  *  ATK 

IF  (I.  EQ.  1)  CO  TO  300 
IF  (TII.  LT.  TSPILL)  00  TO  300 
WRITE  (I,  112) 


TIME  REQUIRED  TO  SPREAD  ACROSS  RIVER  >  DISCHAROE  TIME. 
SWITCH  TO  AN  INSTANTANEOUS  MODEL  AND  START  OVER 


STP  -  1.  1 

SPILLM  -  SPILMR  *  TSPILL 
00  TO  201 

CONTINUE 
TI  IT  -  TII/60. 

WRITE  (1.301)  ATK,  TUT 
WRITE  (6.301)  ATK. TI IT 
FORMAT  (/1H1/1X. 

60H****-* ♦*■*•*•**♦****•*♦*♦****♦*•**•»*♦**-**  *»-****♦•**•*■*•*■*■*-#■*■*■*< 

/1X.35HTHE  THICK  SLICK  HAS  SPREAD  OVER  THE, 

15H  CHANNEL  WIDTH. /1X.21HIT  COVERS  AN  AREA  OF  , 
F15.  2,  2X,  13HSQUARE  METERS, / 1 X,  1 5HAFTER  A  TIME  OF, 
FI  5.  7,  2X,  7HMINUTES  ) 

00  TO  699 


CONTINUE 


✓ 


0079 

ooeo 

0081 


0082 

0083 


0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 


0092 

0093 

0094 


0095 


0096 

0097 

0098 

0099 

0100 

0101 

0102 


0103 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

401 

c 

c 

c 

c 

402 
405 
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c 

c 

c 


c 

c 

c 

410 

C 

C 
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c 

c 

c 

c 

c 

c 


♦♦♦♦HMMHf****-#****#*##*#**********-*#*-*  ■*•**■***•*■*■***■***•**■*  •*■***■**•**•*# 

ROUTINE  TO  NUMERICALLY  INTEGRATE  OPEN  WATER  MODELS  IN 
GRAVITY-VISCOUS  PHASE  UNTIL  SLICK  SPREADS  ACROSS  RIVER 

**#**•*♦*■**#**■****■****#***•*•*•*•*•*■»**■*■*•#■*■*■#*#**•*■*'#■**#**■***•*■**■***'*•*** 

Til  -  TIB 
ATK  -  AI3 
GO  TO  <401, 402)  I 

USE  MODEL  IB  TO  CALCULATE  INITIAL  THICKNESS < INSTANTANEOUS ) 

HTK  -  VO/ATK 
CO  TO  405 

USE  MODEL  2B  TO  CALCULATE  INITIAL  THICKNESS 
< CORRECT  FOR  MASS  IN  THIN  SLICK)  (CONTINUOUS) 

HTK  -  <  SP ILMR*TI I-D£NO*B.  0*ATK*HTN ) / <  DENO*ATK ) 

CONTINUE 

TIME-TII 
YY  < 1 ) -ATK 
YY<2)«8. 0*ATK 
YY<3)-HTK 
YY<4)  *  0.  0 
YY ( 5 )  -00 

**  TEMPORARILY  CHANCE  TO  OPEN  WATER  MODEL  *-* 

IF  <  STP  EQ.  1.  1  )  STP-1.  2 
IF  (STP.  EQ.  2.  1  )  STP-2.  2 
CALL  TRANSP 


INTEGRATE  OVER  ONE  TIME  STEP  ** 
CALL  INTE(XEND) 


a 


*•*  CHECK  FOR  EVAPORATION  PROBLEMS  ** 

IF( IDEB. EQ. 0)  THEN 
KKK-3 

IF < STP.  EQ.  1.  2)  STP-1.  1 
IF ( STP.  EQ.  2.  2)  STP-2.  1 
GOTO  699 
ELSE 
END  IF 

**  CHECK  TO  SEE  IF  SLICK  HAS  SPREAD  ACROSS  RIVER  ** 
IF  <SQRT<YY<1 )/3.  141593).  CE.  <WW/2.  0) )  CO  TO  420 
**  SEE  IF  PRINTOUT  TIME  HAS  OCCURRED  ** 

IU  -  TIME 
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OIOS 
0106 
0107 
01 08 
0109 
0110 
0111 
0112 


0113 

0114 

OHS 
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0117 
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0122 

0123 

0124 
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0128 
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0132 

0133 

0134 

0133 


0136 

0137 


420 

C 

C 

C 


C 

422 

C 

C 

c 


424 


C 

C 

C 


442 

C 

C 

c 


444 

1 

2 

3 

4 

3 

4 

699 


IK  -  TPT 

TO  -  MOD< IU.  IK) 

IF  <MD  NE.  O)  CO  TO  410 

CALL.  MOVE 

CALL  PR  INTO 

CO  TO  410 

CONTINUE 

TB-TIME 

«  CHANCE  BACK  TO  INSTANTANEOUS  MODEL  IN  RIVER  ** 

STP  -  1.  1 

CO  TO  <442.422)  I 

IF  <TB. CE.  TSPILL)  CO  TO  424 

*•*  CHANCE  BACK  TO  CONTINUOUS  MODEL  IN  RIVER  ** 

STP  -  2.  1 
SPILLM«SPILMR*TB 
CO  TO  442 
CONTINUE 
WRITE  < 1.  112) 

WRITE  <6,  112) 

**  IF  TIME  >  DISCHAROE  TIME.  SWITCH  TO  INSTANTANEOUS  MODEL  ** 
STP  -  1.  1 

SP I LLM-SP I LMR  *TSP I LL 
00  TO  201 
CONTINUE 

**  SET  INITIAL  TIME  -  TII  ** 

TII  -  TB 
ATK  -  YY  < 1 ) 

ATN  -  YY ( 2 ) 

HTK  -  YY < 3) 

TOTALM  *  YY  < 1 ) *YY ( 3 ) *DENO 
DM ASS  -  SPILLH-TOTALM 
TIIT  -  TII/60. 

WRITE  <1.444)  ATK, TIIT, DMASS  ! 

WRITE  <6.444)  ATK, TIIT, DMASS  I 

FORMAT  < 1H1 // 1 X,  j 

60H»  »»»#» 

/1X.32HTHE  THICK  SLICK  HAS  SPREAD  OVER  . 

32HCHANNEL  WIDTH  AND  COVERS  AN  AREA/ 1 X , 3HOF  , E12.  5, 

2X, 29HSQUAAE  METERS  AFTER  A  TIME  OF,  E12.  3,  2X,  9H  MINUTES.  /, 
1X.39HTHE  MASS  LOST  FROM  THE  SLICK  UP  TO  THIS, 

8H  TIME  IS, E12.  5. 2X, 9HKIL0CRAMS) 

RETURN 
END 
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SUBROUTINE  INT12B 

****************************************************  ***** 

*  INITIAL  CONDITIONS  FOR  MODELS  1.  B  AND  2.  B  * 

*  SPILL  IN  OPEN  WATER. IF  SPILL  IS  * 

*  CONTINUOUS,  CURRENT  MUST  BE  ZERO.  * 

***********■#■#********************■*********-***********♦» 

THIS  SUBROUTINE  IS  CALLED  BY  “INIT".  IT  CALCULATES  THE 
INITIAL  CONDITIONS  FOR  INSTANTANEOUS  OR  CONTINUOUS  SPILLS 
IN  OPEN  WATER.  FOR  A  CONTINUOUS  SPILL,  THE  CURRENT  AND  WIND 
MUST  BE  ZERO,  OR  ELSE  " INI TAB H  WILL  BE  CALLED. 

COMMON/STYPE/SP ILLM,  SPILMR, TSPILL, WS, STP, SPM 
CQMMON/CHEMI /DENO,  DCA,  DCW,  CS, CMW 
COMMON/WATER /DENW, VISW, OR 

COMMON/SPREAD/TI I,  ATK,  HTK,  ATN,  HTN,  HMIN,  INDEX,  I FLAG 

COMMON/ENVOR/PV, VISA,  DEN A,  TDC 

COMMON/ INTER /COEF,  SIOWA,  SICOA,  SICOW,  SIC 

COMMQN/SENSE/EVA  <  40,  10),  DISC40,  10),  THK<40,  10), TINI40,  10), 

1  PIP(40),TPT 

COMMON/CONTOUR /SHAPE,  XUO).  Y(10),  XC,  YC,  IC,  IW.  ISP,  XO,  YO 
COMMON/UAVE/UC X 1 > UCY1,  VWX1, VWY1 

COMMON/CK/C 10,  C20,  Cll.  C21,  C12,  C22,  K10,  K20.  Kll,  K21, 

1  K12, K22 

REAL  K10. K20, Kll,  K21,  K12,  K22 
P I “AC OS  < -1 .  ) 

**  STP  -  1.2  (INST.  )  OR  2.  2  (CONT.  )  —  OPEN  WATER  ** 

I  ■  STP 

00  TO  <10,  110)  I 


FOR  INSTANTANEOUS  SPILL  IN  OPEN  WATER 


SPI  -  SP ILLM 
VO  -  SP I /DENO 

TII  ■  < <K20/K10>**4.  >*<VO/(QR*COEF*VISW) )  **  <  1.  0/3.0) 

ATK  -  P I* < K20**2.  )*< <K20/K10)**2.  > * ( VO*-* < 2.  0/3.  0 )  )  * 

1  < OR*VO*COEF / <  VI SW*VISW ) ) ** < 1 .  0/6.  O ) 

HTK  -  VO/ ATK 

*****  ************************************-***************  ******** 

TII  -  END  OF  OF/ VI TY- INERT  I A  PHASE 

ATK,  HTK  -  THICK  SLICK  AREA  AND  THICKNESS  AT  END  OF 
GRAVITY-INERTIA  phase 

*******************■*■#■******■******•********■*-*****■*******-**■******♦* 

XC“X0+<UCXl+0.  033*VWX1 )*TI I 
YC“YO+  < UCY1 +0.  033*VWY1 )*TI I 

**  XC,  YC  “  NEW  VALUES  OF  SICK  CENTER  LOCATION  ** 

CO  TO  149 
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FOR  CONTINUOUS  SPILL 


0024 


0026 

0027 

0028 


0029 

0030 

0031 

0032 

0033 

0034 


0033 

0036 

0037 

0038 

0039 

0040 


0041 

0042 


120 


C 

c 

c 

c 

c 

149 
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1 
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Til  -  < (K21/K11 >*+6.  >*S<JRT<SPILMR/<QR*COEF*DENW*VISW) ) 

**  TII  -  END  OF  QRAVITY-IERTIA  PHASE  ** 

IF  <TII.  LT.  TSPILL)  «0  TO  120 
WRITE  (1. 112) 

WRITE  (6.  112) 

FORMAT  UH1//1X, 

30H** **■*****■**■»♦-•*****•»****■••»*+**•****•**♦♦****■*•»*****■*,  / 

1X.48HTHE  SPILL  TIME  IS  SO  SHORT  THAT  AN  INSTANTANEOUS. / 

IX. 30HSPILL  WILL  GIVE  GETTER  RESULTS) 

**  SINCE  TII  >  DISCHARGE  TIME,  SWITCH  TO  INSTANTANEOUS  MODEL  ** 
STP  -1.2 

SPILLM  -  SPILMR  *  TSPILL 
00  TO  10 

ATK  -  <PI*K21**2.  *<K21/K11 )**7.  )*< < SP ILMR/DENW ) **5 
/<VISU**3.  *OR*COEF)  )  *■*  0.23 
HTK  -  <SPILMR*TII-DENO*B.  0*ATK*HTN > / < DENO*ATK ) 

ATN  -  8.  0*ATK 

**  ATK,  HTK  -  THICK  SLICK  AREA  AND  THICKNESS  AT  END  OF  ** 

*■*  QRAVITY-INERTIA  PHASE  ** 

**  ATN  -  THIN  SUCK  AREA  AT  END  OF  GRAVITY— INERTIA  PHASE  *+ 

CONTINUE 

RADIUS  -  SORT < ATK/3.  141393) 

TIIT  -  TII/60. 

WRITE  <1.139)  ATK, RADIUS.  TIIT 
WWITE  '6,  139)  ATK,  RADIUS. TIIT 

FORMAT  <//lX, 38HTHICK  SLICK  HAS  SPREAD  OVER  A  CIRCULAR, 

8H  AREA  0F.E12.  3.  14HSQUARE  METERS,  / 

IX,  17HWITH  A  RADIUS  OF  , E12.  5, 6HMETERS, 

16H  AFTER  1>E  FIRST, E12.  3, 7HMINUTES) 

RETURN 

END 


SUBROUTINE  INIT4A 

*  CALCULATE  INITIAL  CONDITIONS  FOR  MODEL  4A 

*  CONTINUOUS  IN  A  CHANNEL  WITH  A  TRANSPORT  VELOCITY 

*  OF  UTBA 

#*#***#-*******•*♦***■*♦■*•*•*•*■**♦*•#♦*■**•*'•*♦*♦*•*♦•*■*■#•***■#*#•#**#■*  #■#■*#•#*■1 

THIS  SUBROUTINE  IS  CALLED  BY  “INIT“.  IT  COMPUTES  INITIAL 
CONDITIONS  FOR  A  CONTINUOUS  SPILL  IN  A  RIVER  WiTH  A  CURRENT. 

COMMON/SI ZE/R, D. WW. LI. L2,  H, RO 
COMHON/STYPE/SPILLM,  SPILMR. TSPILL,  WS.  STP, SPM 
COMMON/ WATER /DENW,  VI SW,  OR 
COMMCN/CHENI/DENO, DCA. DCU.  CS.  CMW 

COMMON /SPREAD/ T 1 1 . ATK, HTX,  ATN. HTN,  HMIN.  INDEX,  IFLAC 
COMMON/RUNCE/YY (  3  > ,  C  ( 24 ) ,  W  (  3.  30 ) 

COMMON/CONSTAT/UC, VW, UTBAR. UO, Ul.  WT,  ALPH,  THETA1 
COMMON /TR A VEL/WTH, Z 

COMMON/ INTER /COEF,  SIOWA. SIOOA, SICOU,  SIC 

COMNON/SENSE/EVA ( 40. 10), DIS<40. 10), THK(40, 10), TIN<40, 10), 

1  P IP  (  40 ) , TPT 

COMMON/MOVE/UPEAK < 10), XLE, XTE, YLE.  YTE,  DELT,  TIME,  TSTOP, TCHECH 
COMMCN/PR IM/PR I ME <  3 ) >  IDEB, KKK 

COMMON/CK/C 10.  C20,  CU,  C2l,  C12,  C22,  K10,  K20.  KU,  K21, 
f  K12, K22 

REAL  K 10. K20,  K 1 1 , K21 .  K 12,  K22 

TIB  -  <  < K22/K1 2 > ** < 24.  /7.  ) ) *( SP ILMR/ ( 2.  *DENW ) )•** <4.  /7.  ) / 

1  <  ( UTBAR-**  ( 4.  /I.  )  )*(QR*C0EF)**(2.  /7.  )  *  ( VISW**  ( 3.  /7.  )  )  ) 

ATKB  «  K22*< (K22/Ki?)**(33.  /7.  >  )  *  ( SP  ILMR/ ( 2.  *DENW  >  )  **  ( 9.  /7.  ) 

1  /(  (UTB4R**(2.  /7.  )  >*(CR*C0EF)*-*(1.  /7.  )  *  <  VISW**(  5.  /7.  ))) 

**  TIB  -  END  Or'  OR AVI TY- INERT I A  PHASE  ** 

**  ATKB  -  THICK  SLICK  AREA  AT  END  OF  GRAVITY-  ** 

**  INERTIA  PHASE  ** 

IF  (TIB.  LT.  TSr  ILL)  00  TO  30 
WRITE  (1,  10) 

WRITE  (6,  10) 

FORMAT  (//IX, 44HSPILL  TIME  IS  SO  SHORT  THAT  AN  INSTANTANEOUS, 

1  /IX,  31 HMODEL  WILL  GIVE  BETTER  RESULTS.  ) 

m  «■»■»•»«♦■»■*♦♦■»■*■»■»*■»♦■»■>■»■»♦♦■*■»■•■»*■»■>♦**■»*♦■»■»♦♦■**■»■»■»♦*♦■< 
SINCE  TIB  >  DISCHARGE  TIME,  SWITCH  TO  AN  INSTANTANEOUS 
SPILL  (RETURN  TO  “INIT"). 


STP  -  1.  1 

SPILLM  -  SPILMR  *  TSPILL 
00  TO  299 

♦*  WTK  -  WIDTH  OF  DOWNSTREAM  END  OF  THICK  SLICK 


WTK  -  2.  O*  ATKB /( UTS AR*TIB ) 
IF  (WTK.  CT.  WW)  CO  TO  55 
CO  TO  100 
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c 

c 
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SINCE  WTX  >  RIVER  WIDTH.  TIME  AND  SLICK  AREA  NEED  TO  BE 
REDUCED  ACCORDINGLY  TO  GET  INITIAL  CONDITIONS. 

Til  -  TIB*<  WU/WTK ) 

ATX  -  ATXB*<TII/TIB)**2 

*♦  Til  AND  ATK  ARE  INITIAL  CONDITIONS  FOR  TIME  AND  THICK  ** 
SLICK  AREA.  ># 

IF  (Til.  OT.  TSPILL)  ©0  TO  90 
Z  -  UTBAR*TI I 
TI IT  -TII/60. 

WRITE  <  1j  60)  ATK.  TUT.  Z 
WRITE  (6.60)  ATK.  TZIT.  Z 

FORMAT < //I X.  42HTHICK  SLICK  HAS  SPREAD  ACROSS  THE  CHANNEL  . 

1  27WWIDTH  AND  COVERS  AN  AREA  OF. El 2.  5/12, 

2  29HS0UARE  METERS  AFTER  A  TIME  OF, E12.  5.  2X,  8HHINUTE3.  , 

3  /1X.2SHTHE  SLICK  LEADING  EDOE  IS.  E12.  5.  2X. 

4  18PHETERS  DOWNSTREAM.  ) 

HTK  -  (8P ILMR*TI 1— D£NO*8.  0-*ATK*HTN  )  /  (  D£NO*ATK  ) 

»*  HTK  -  INITIAL  THICK  SLICK  THICKNESS  CORRECTED  FOR  MASS  ** 
«  IN  THIN  SLICK  ♦♦ 

ATN  -  8.  0  *  ATK 

**  ATN  •  INITIAL  THIN  SLICK  AREA 

00  TO  299 
CONTINUE 
TIB  -  Til 
00  TO  9 

SINCE  SLICK  WIDTH  <  RIVER  WIDTH  AT  END  OF  GRAVITY- INERT I A 
PHASE,  USE  INTEGRATION  OF  OPEN— WATER  OR AV,TY -VISCOUS  MODEL 
TO  CONTINUE  LWTIL  WIDTH  -  RIVER  WIDTH. 


TI I  -  TIE 
ATK  -  ATKB 

HTK  -  (SPILMR*TII-DENO*8.  0*A7K»HTN> / » C *N0*8.  <>*ATK ) 
TIME  -  TI I 
YY  (  1  )  -  ATK 
YY<2)  '•80*  ATK 
YY (3)  -  HTK 

**  SWITCH  TO  OPEN-WATER  MODEL  ♦* 

STP  -  42 
CALL  TRANSP 
CALL  INTE(XEND) 


C-36 


t  s 
/■  V 

«r.v 


I'  V 


0032 

0033 

0034 

0033 

0036 

0037 


0030 

0039 


0060 

0061 

0062 

0063 

0064 

0063 

0066 

0067 


0060 

0069 

0070 

0071 

0072 

0073 

0074 

0073 

0076 

0077 

0070 

0079 


0080 
008  1 


c 

C  **  CHECK  FOR  EVAPORATION  TROUBLES  ** 

C 

IFdDEB.  EQ.  0)  THEN 
KKK-3 
STP-4. 1 
COTO  299 
ELSE 
END  IF 
C 

C  *♦  ONCE  HOPE-  CHECK  TO  SEE  IF  TIME  <  DISCHARGE  TIME  «•» 

C 

I F ( T I  ME  .  CT.  TSP ILL )  GOTO  3 

IF  < <2.  0*YY< 1 >/(UTBAR*TZM£) ).  GT.  WW)  00  TO  110 
C 

C  *•»  GO  TO  i  10  WHEN  WIDTH  /  RIVER  WIDTH  *# 

C 

IJ  -  TIME 

IK  -  TPT 

MD  -  MOD < IJ,  IK) 

IF  <MD.  NE  .  0)  00  TO  103 
CALL  MOVE 
CALL  PR  INTO 
00  TO  103 


110  STP  «  4.  1 

C 

C  #-*#**#**#**#*##***,MHHHH»*-HMHHH»*#*  •«*««  A*##*##*-*  •• 

C  RETURN  WITH  INITIAL  CONDITIONS  TII  -  TIME,  ATK  ®  THICK  SLICK 

C  AREA.  ATN-THIN  SLICK  AREA,  AND  ATK  -  THICK. 

o  ♦♦•♦♦**###**-*##*****#*#«#****'fc**«#****'*<»*^  »•»•»■&*■•»■»*■»■»■» 

c 

TII  -  TIME 
ATK  -  YY< 1 > 


ATN  -  YY  (  2 ) 

HTK  -  YY(3> 

TOTALM  «  YY ( 1 ) *YY ( 3 ) *DENO 
SP I LLM-BP I LMR  •  TIME 
DMAS8  -  SPILLM  -  TOTALM 
TUT  -  TII/60 
Z  -  UTBAR  *  Til 

WRITE  (1,120)  ATK,  TUT,  Z.  DMASS 
WRITE  (6,120)  ATK, TI IT, Z, DMASS 

120  FORMAT! //IX, 41 HTH I CK  SLICK  HAS  SPREAD  /CROSS  THE  CHANNEL, 

1  2SH  WIDTH  AND  COVERS  AN  AREA  OF, /1X.E12  5, 

2  14HS0UARC  METERS.  ,  /IX,  16MAFTER  A  TIME  OF  ,612  3,  SHMINUTf-’S.  ,  /, 

3  23HTHE  SLICK  LEADINO  EDGE  IS, E12.  3, 

4  1BHMETFRS  DOWNSTREAM  /IX. 

3  47HTWE  MASS  LOST  FROM  THE  SLICK  UP  TO  THIS  TIME  IS. 

6  EI2.  3,  lOHKILOORAMS  ! 

299  RETURN 

END 


0001 


SUBROUTINE  INIT48 


0002 

0003 

0004 

0003 

0006 

0007 

0008 

0009 

0010 

0011 


0012 

0013 

0014 

0013 

0016 


0017 


0018 

0019 

0020 

0021 


C 

C 

C 

C 

C 

C 

C 

C 

C 


10 


C 

C 

C 

C  - 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*♦**♦**■*■#•*■**■*•#  ■#■#■*•*■*#•#*■****.►**♦*■*♦*♦•*■*•*♦•*♦■*'**'**■****•*■#***♦•*•* #HMH 

*  CALCULATE  INITIAL  CONDITIONS  FOR  MODEL  4B 

*  CONTINUOUS  SPILL  IN  OPEN  WATER  WITH  A  CURRENT 

*  SPEED  (TRANSPORT  VELOCITY)  OF  UTBAR 


THIS  SUBROUTINE  IS  CALLED  BY  "INIT".  IT  COMPUTES  THE  INITIAL 
CONDITIONS  FOR  A  CONTI NOUS  SPILL  IN  OPEN  WATER  WITH  A  CURRENT. 

C0MM0N/S1ZE/R.  D.  WW.  Li,  L2,  H.  RO 
COMMON/ 8TYPE/SP  ILLM,  SP ILHR.  T8PILL,  W8.  8TP.  SPM 
COMMON/ WATER /DENW,  VISW,  OR 
COMMON/CHEMI/DENO. DCA, DCW, CS,  CMW 

COMMON/SPREAD/TII.  ATK.  HTK,  ATN.HTN.  HMIN.  INDEX.  IFLAO 
COMMON/CONSTAT/UC.  VW.  UTBAR.  00.  01.  WT.  ALPH.  THETA  1 
COMMON/TRAVEL/WTK.  Z 

COMMON/ 1 NTER/COEF,  SIOWA.  SIQOA.  SIOOW.  SIO 

COMMON/MOVE/UPEAK  ( 10 > .  XLE.  XTE.  YLE.  YTE.  DELT,  TIME,  TSTOP.  TCHECH 
COMMON/TRANSIT/UX  <  10,  10).  UYUO.  10),  VWX<  10), 

1  VWY(10),THETA<10).TI(10>.  ID.  IT.  IV. 

2  XU(10), YU<10),TT(10) 

C OMMON/CONTOUR /SHAPE.  X(10).  Y(10>,  XC.  YC.  IC.  IW,  ISP.  XO.  YO 
COMMON/CK/C 10.  C20.  Cll.  C21.  C12.  C22.  K10.  K20.  Kll.  K21. 

1  K12.  K22 

REAL  K10.K20.  Kll,  K21.K12.K22 
M-ISP 

TII  -  <  <K22/K1L)**<24.  /7.  >  )*(  (SPILMR/(2.  *D€NW)  )**(4.  /7  )  >/ 

1  <  <UT8AR*-#<4.  /7.  )  )*(  <0R*C0EF>**<2.  /7.  )  )* 

2  <VISW«*<3.  /7.  ) ) ) 

TII  -  END  OF  QRAV I TY- INERTIA  PHASE  *♦ 

IF  <TII.  0€.  TSPILL)  00  TO  SO 

IF  TII  >  DISCHAROE  TIME,  SWITCH  TO  AN  INSTANTANEOUS  MODEL  ** 

ATK  -  K22*< (K22/K12>*+<33.  /7.  )  )*<SP ILMR/ <2.  *D€NW> )**<9.  /7.  > 

1  /<  <UTBAR**<2.  /7.  )  )*<©R*COEF>*#< 1.  /7  )*<VISW**<3.  /7.  )  >  ) 

HTK  -  ( SP  I LMR*T I  I-D£NO*S.  0*ATK*HTN)/(D€NO*ATK) 

ATN  •  8.  0  *  ATK 

WTK  -  2.  0  «  ATK/ <  UTBAR*TI I ) 

♦*♦«►■****••♦•♦*♦•#*■*■•♦♦#«*♦♦#*♦**••♦••**♦#••**«»*#<►•■***#♦*■**■**♦« 
ATK  -  INITIAL  THICK  SLICK  AREA 
HTK  -  INITIAL  THICK  SLICK  THICKNESS 
ATN  -  INITIAL  THIN  SLICK- AREA 
WTK  -  INITIAL  THICK  SLICK  DOWNSTREAM  WIDTH 
*•#  ■***•■*•»■*  **■**••■**■*■#**■**•*■•♦♦*■*♦**  ■*■»#♦■**■*■**•*•**•»■**■*■•■*•*■*•*'*■* -•■*■**■*■• 


XLE  AND  YLE  ARE  DOWNSTREAM  COORDINATES  OF  LEADING  EDGE 
WITH  RESPECT  TO  CURRENT  DIRECTION. 


c 


0022 

0023 

0024 

0025 

0026 

0027 

002S 


0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 


0037 

0038 

0039 

0040 


20 

1 

2 

3 

4 

5 

22 

1 


50 

52 

1 

C 

C 

c 


2  -  UTBAR*T I I 

XLE  -  XC  ♦  (UX(M,  l>-*-0.  035*VWX( 1 ) >*TII 
YLE  -  YC  +  (UY(M,  l)+0.  035*VWY < 1 ) ) *T II 
TUT  -  TII/60. 

WRITE  (1.20)  ATK,  TUT,  WTK,  Z 
WRITE  (6,20)  AT*,  TUT,  WTK,  Z 

FORMAT (//IX, 41HTHICK  SLICK  HAS  SPREAD  OVER  AN  ELONGATED  , 

1 9HTR I ANGULAR  AREA  OF  , E12.  5,/ 

1 X , 29HSGUARE  METERS  AFTER  A  TIME  OF, E12.  5, 8HMINUTES.  ,  / 

1 X, 31HTHE  THICK  SLICK  LEADING  EDGE  IS, E12.  5, 2X, 

1SHMETERS  WIDE  AND  IS, E12.  5, 2X, 7HMETERS  / 

IX, 1 1HDQWNSTREAM.  ) 

WRITE  (1,22)  ATN 

FORMAT  < / 1 X, 31 HTHE  THIN  SLICK  AREA  IS  EQUAL  TO, E12.  5, 

1 X, 14HSQUARE  METERS.  ' 

TEMPI  -  DENO* ( ATK*HTW - ATN*HTN ) 

TEMP2  -  SPILMR*TI I 
CO  TO  99 
WRITE  < 1. 52) 

WRITE  (6,52) 

FORMAT (//IX,  45HSP ILL  TIME  IS  SO  SHORT  THAT  AN  INSTANTANEOUS 
/IX, 31 HMODEL  WILL  GIVE  BETTER  RESULTS.  ) 

*♦  MAKE  SWITCH  TO  INSTANTANEOUS  MODEL  ** 

STP  -  1.2 

SPILLM  -  SPILMR  *  TSPILL 

RETURN 

END 


99 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  INTE  ( XEND) 

C  SUBROUTINE  TO  SOLVE  SIMULTANEOUS  1ST  ORDER  DIFFERENTIAL 

C  EQUATIONS  BY  USINQ  RUNQE-KUTTA  METHOD 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  “SPREAD"  AND  THE  INITIAL  CONDITIO 

C  SUBROUTINES  "INT12A"  AND  “INIT4A".  IT  SENDS  THE  APPROPRIATE 

C  GRAVITY-VISCOUS  MODEL  EQUATIONS  TO  A  RONCE-KUTTA  INTEGRATION 

C  ROUTINE  “RUNKUT"  TO  COMPUTE  THE  THICK  SLICK  AREA  AND  OTHER 

C  VARIABLES  AS  A  FUNCTION  OF  TIME.  AFTER  EACH  PASS.  'TIME'  IS 

C  INCREMENTED  BY  'DELT'.  THE  "FCN"  SUBROUTINES  IN  THE  "RUNKUT" 

C  CALL  ARE  THE  EQUATIONS  OF  THE  GRAVITY-VISCOUS  MODELS.  THE 

C  MATRIX  'YY'  IN  THE  CALL  IS: 

C  ♦*  YY(1)  -  THICK  SLICK  AREA.  SO.  M 

C  *■*  YY<2>  -  THIN  SLICK  AREA,  SQ.  M 

C  **  YY<3>  -  THICK  SLICK  THICKNESS,.  M; 


THE  MATRIX  'YPRIME ' 
##  YPRIME(l) 
♦*  YPRIME < 2 ) 
*•*  YPR  I ME ( 3 ) 
*-*  YPR  I  ME  ( 4 ) 
•*  YPRIMEO) 


IN  THE  “FCN"  SUBROUTINES  IS: 

-  D(YY(1))/DT 

-  D( YY(2) )/DT 
«  D(YY(3))/DT 

■  RATE  OF  EVAPORATION  LOSS, 

-  RATE  OF  DISSOLUTION  LOSS. 


KC/SEC 

KO/SEC 


SUBROUTINE  INTE < XEND) 

COMMON/RUNGE/YY  <  5  > , C  <  24  ) ,  W<  3.  30) 

COMMCN/MOVE/UPEAK ( 10  > ,  XLE,  XTE.  YLE.  YTE,  DELT,  TIME.  TSTOP,  TCHECK 

COMMON/MASS/TOTALE,  TOTALD.  TOTALM.  DMASS 

COhMON/STYPE/SP ILLM.  SPILMR.  TSPILL.  WS.  STP.  SPM 

COMMON /CONTOUR /SHAPE,  X < 10 ) ,  YC 10) ,  XC.  YC.  IC,  IW,  ISP,  XO.  YO 

C0MM0N/ML063/EVAPM,  DISSOM 

COMMON/CHEMI/DENO, DCA, DCW, CS.  CMW 

COMMON/PRIM/PR IME< 3), IDEB, KKK 

C0MM0N/CK/C10,  C20,  CU,  C21.  C12,  C22,  K10,  K20.  KL1,  K21, 

K12, K22 

COMMON/SPREAD/TI  I,  ATK,  HTK,  ATN.  HTN,  HMIN,  INDEX,  IFLAC 

REAL  K10, K20, K 1 1 . K21 , K12,  K22 

EXTERNAL  FCN1 1 ,  FCN12, FCN21, FCN22.  FCN41. FCN42 


CALL  SUBROUTINE  TO  CALCULATE  EVAPORATION  LOSS 


0014 

CALL  EVAP 

C 

-  CALL  SUBROUTINE 

■&; 

Q013 

CALL  DISS 

h*  m 

' 

0016 

10 

CONTINUE 

V‘ 

c 

9X 

0017 

N-3 

0018 

NW  «■  3 

0019 

IND  -  1 

0020 

TOL  -  1.  E-7 

c 

0021 

XEND  -  TIME  +  DELT 

A.,” 

c 

- MODEL  1,  A 

0022 

IF  (STP  NE.  1.  1 )  CO  TO  I 

C-40 


.  \m.  \9,  c  *  ly 


["■V—g'^H  ffl1;  li'J  i  \  u  ■  f>  \  * 


{ 


v%*. 

v; 


•V 
*  V 


.  \ 
s 


C 

0023 

0024 

0025 

20 

C 

0026 

0027 

0028 

30 

C 

0029 

0030 

0031 

40 

C 

0032 

0033 

0034 

70 

C 

0035 

0036 

0037 

80 

C 

0038 

0039 

99 

0040 

0041 

0042 

0043 

0044 

110 

0045 

0046 

C 

C 

C 

c 

c 

c 

0047 

111 

0048 

999 

0049 

0050 

-  MODEL  1. A  - 

CALL  RUNKUT  (  N,  FCNU,  TIME,  YY.  XEND,  TOL,  IND,  C,  NW.  W,  IER  > 
CO  TO  99 

IF  <STP.  N£.  1.  2)  CO  TO  30 

— - MODEL  1.  B - 

CALL  RUNKUT  (  N,  FCN12, TIME, YY,  XEND, TOL,  IND, C, NW, W,  IER) 
CO  TO  99 

IF  < STP.  NE.  2.  1  >  CO  TO  40 

- MODEL  2.  A - 

CALL  RUNKUT ( N, FCN21 , TIME, YY,  XEND, TOL,  IND, C, NW, W.  IER) 
CO  TO  99  | 

IF  (STP.  NE.  2.  2)  CO  TO  70 

- MODEL  2.  B - 

CALL  RUNKUT <N,  FCN22, TIME, YY, XEND, TOL,  IND, C. NW, W,  IER) 
CO  TO  99 

IF  (STP. NE.  41)  CO  TO  BO 

- MODEL  4.  A - 

CALL  RUNKUT ( N,  FCN41, TIME,  YY,  XEND, TOL,  IND, C, NW, W,  IER) 

CO  TO  99 

CONTINUE 


- MODEL  4.  B - 

CALL  RUNKUT ( N,  FCN42,  TIME, YY,  XEND, TOL,  IND, C, NW, W,  IER ) 

CONTINUE 

TOTALE  -  YY ( 4 ) 

TOTALD  -  YY ( 5 ) 

TOTALM  -  D£NO*YY< 1 >*YY<3) 

I  STP  -  STP 

CONTINUE 

CALL  CHEKMS 

IF < IDES.  CT.  1 )COTO  999 


IF  IDES  -  0,  'TCHECK'  IS  MADE  LESS  THAN  'TIME'.  OTHERWISE, 
'TCHECK'  REMAINS  EQUAL  TO  'TSTOP'  AS  SPECIFIED  IN  '‘DMODEL". 


TCHECK  -  TIME  -  DELT 

CONTINUE 

RETURN 

END 


rg 
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■U. 


C -41 


0001 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  MOVE  ( 

C  TRACKING  THE  MOVEMENT  OF  THE  SLICK  C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccct 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  "SPREAD"  AND  THE  INITIAL  CONDITION 

C  SUBROUTINES  " INIT4A"  AND  "INT12A".  IT  COMPUTES  THE  MOVEMENT 

C  OF  THE  SLICK  FOR  EACH  TIME  STEP.  THE  TRANSPORT  VELOCITIES  ARE 

C  COMPUTED  IN  SUBROUTINE  "TRANSP". 

C 

SUBROUTINE  MOVE 

CGMMON/STYPE/SPILLK,  SPILMR.  TSPILL.  WS,  STP,  SPM 
COMMON /MOVE/ UP EAK ( 10) , XLE. XTE, YL£,  YTE.  DELT.  TIME.  TSTOP. TCHECK 
COMMON/CONTOUR /SHAPE. X<10>. Y<10). XC.  YC.  IC. IW. ISP.  XO. YO 
COMMON /TRANS I T/UX ( 10,  10), UY< 10.  10).  VWX < 10). 

1  VWYUO), THETA < 10),TI(10>,  ID.  IT.  IV. 

2  XU( 10), YU< 10). TT<10) 

COMMON/CONSTAT/UC,  VW,  UTBAR,  UO.  Ul.  WT.  ALPH.  THETA1 
COMMON/CURRENT /USAR  (  10 ) ,  DMOVE.  UTOT.  UTX,  UTY,  UREL 
I  -  STP 

J  -  SHAPE 
TBEF  -  TIME-DELT 
IC1  «  IC  +  1 
iwi  -  iw 

IF( I.  OT.  1 )  00  TO  200 
C 

C  INSTANTANEOUS  SPILL 

C  <THE  WHOLE  SLICK  IS  FREE  TO  MOVEi 

C  - 

c 

IF  <J.  LT.  2)  00  TO  100 

C  ***  MOVEMENT  MODEL  M.  1.  0  *♦* 

C  < IN  OPEN  WATER) 

DMOVE- 1.  0 

XC  -  XC  +  UTX*DELT 
YC  «  YC  -*■  UTY* DELT 
00  TO  999 
C 

C  ***  MOVEMENT  MODEL  M.  1.  1  *** 

C  < IN  OPEN  WATER  AFTER  THE  SPILL  STOPPED) 

C 

C 

C  ♦**  MOVEMENT  MODEL  M.  2  *** 

C  < IN  RIVERS  OR  CHANNELS) 

r 

100  DMOVE  -  2.  0 

XC  -  XC  *  UTOT *DELT 
00  TO  999 
C 
C 

C  CONTINUOUS  SPILL 

C  (THE  SLICK  MUST  STAY  ATTACHED  TO  THE  SPILL  ORIGIN) 

C  - 


CONTINUE 

IF  <  J.  GT.  1 )  CO  TO  400 

IF  (  IC.  GT.  1.  AND.  IW.  GT.  1  )  CO  TO  230 

***  MOVEMENT  MODEL  M.  3.  A  *** 

1.  IN  RIVER  OR  CHANNEL 

2.  UC  AND  VW  DO  NOT  VARY  WITH  TIME 


0025 

DMOVE  -  3.  10 

0026 

XLE  -  UTOT *T IME 

0027 

XTE  -  0  0 

0028 

CO  TO  999 

0029 

230 

r- 

CONTINUE 

0030 

Kt 

280 

IF  <UBAR<1)  LT.  (0. 3*UPEAK( 1 > ) )  CO  TO  300 

**■*  MOVEMENT  MODEL  M.  3  (B.  1)  *** 

1.  IN  RIVER  OR  CHANNEL 

2.  UBAR  .  OE.  <0.  3*UPEAK  / 

*•*******#***+*#*-*#*•**-*♦<♦**•*♦♦**■***■*•*■*■**■***■**■*■»  *****-************* 

WHEN  UBAR  >03*  UPEAK,  TIME  VARIATION  IS  NEGLECTED  AND 
AVERAGE  TRANSPORT  VELOCITY  IS  USED  TO  COMPUTE  MOVEMENT 
DUE  TO  CURRENT.  CORRECTION  FOR  APPARENT  MOVEMENT  DUE  TO 
SPREADING  IS  MADE  IN  "PRINTO". 

**************************************************************** 

DMOVE  -  3.  21 

XLE  -  < UBAR ( 1 )  +  0. 035*VW*C0S(THETA1 ) )*TIME 
XTE  -  0  0 
CO  TO  999 

***  MOVEMENT  MODEL  M.  3  (B.  2)  *** 

1.  IN  RIVER  OR  CHANNEL 

2.  UBAR  .  LT.  (0.  3*UPEAK> 

*****■*•*#**■**-»*-*•*■*•*•*  ■#■*•*•*■*■*•*•»■**•*•**■*******#**■*■*•&*■*■*-*■***•*****•*****•** 

WHEN  UBAR  <  0,  3  *  UPEAK,  TIME  VARYINO  'UTOT'  IS  USED  TO 
COMPUTE  INCREMENTAL  MOTION  OF  LEADING  EDGE  DUE  TO  CURRENT. 
CORRECTION  FOR  APPARENT  MOVEMENT  DUE  TO  SPREADING  IS  MADE 
IN  "PRINTO". 

CONTINUE 

DMOVE  -  3.  22 

XLE  »  XLE  *  UTOT *DELT 

GO  TO  999 

♦**  OPEN  WATER,  CONTINUOUS  SPILL  *** 


IF  <  IC.  LE.  2.  AND.  IW.  LE.  1  )  CO  TO  435 
CO  TO  300 

***  MOVEMENT  MODEL  M.  4, A  *** 

1.  IN  OPEN  WATER 

2.  UC  AND  VI1  DO  NOT  VARY  WITH  TIME 

DMOVE  »  4.  10 


0042 

470 

XLE  -  XLE  +  UTX*DELT 

0043 

YLE  -  YLE  +  UTY*DELT 

0044 

00  TO  999 

0045 

500 

CONTINUE 

0046 

IF  <  IW.  «T.  1)  00  TO  505 

0047 

W1  -  VWX< 1 ) 

0048 

W2  »  VWY  ( 1  > 

0049 

CO  TO  530 

C 

**  SINCE  WIND  -  F  <  T I ME ) ,  INTERPOLATE  TO  FIND  WIND  SPEED  AT  ** 

C 

**  CORRECT  TIME. 

** 

0050 

505 

CONTINUE 

0051 

DO  510  1-1,10 

0052 

IF  <  TBEF.  LE.  TT  < I >  >  00  TO  520 

0053 

510 

CONTINUE 

0054 

520 

W1  -  VWX  < I  — 1 )  +  <  VWX  < 1 5-VWX ( 1-1 > )*<TBEF— TT ( I  —  1 ) ) / 

1  (  TT  <  I  1— TT  <  I  —  1  )  ) 

0055 

W2  -  VWY< 1-1 >f <VWY( I )-VWY( 1-1 ) >*<TBEF-TT< 1-1 ) )/ 

1  <  TT ( 1 ) — TT ( I  —  1 ) ) 

C 

*-*  W1  AND  W2  ARE  INTERPOLATED  WIND  SPEEDS  IN  X  AND  Y 

DIRECTION 

0056 

530 

CONTINUE 

0057 

IF  <  IC.  EQ.  1.  OR.  IC.  EQ.  3)  I3P  -  1 

c 

r 

**  IF  CURRENT  IS  NOT  F(SPACE),  BOX  OR  SLICE  LOCATION 

»  1  ** 

0058 

r 

IF  <STP.LE.  2.  2)  CO  TO  600 

c 

#**  MOVEMENT  MODEL  M.  4  (B.  1)  *** 

c 

1.  IN  OPEN  WATER 

c 

2.  UT  (I )  .  OE.  UPEAK  <  I  ) 

c 

I  IS  THE  REGION  NO.  WHERE  THE  LEADING 

c 

EDOE  WAS . 

0059 

DMQVE  -  4.  21 

0060 

XLE  «  XLE  +  UTX*DELT 

0061 

YLE  -  YLE  +  UTY*DELT 

0062 

00  TO  999 

c 

***  MOVEMENT  MODEL  M.  4  (B.  2)  •*** 

c 

1.  IN  OPEN  WATER 

c 

2.  UT  ( I )  .  LT.  UPEAK  <  I  > 

c 

3.  THE  SLICK  IS  CIRCULAR 

c 

4.  SPREADING  MODEL  2.  B  WAS  USED  AND 

UBAR  *  0. 

0063 

600 

CONTINUE 

0064 

DMOVE  -  4.  22 

0065 

XLE  -  XLE+UTX*DELT 

0066 

YLE  -  YLE+UTY*DELT 

0067 

UO  -  UTX/SQRT f UTX**2.  +UTY*-*2.  ) 

0068 

U1  -  UTY/SGRT ( UTX**2.  +UTY#*2.  ) 

0069 

999 

RETURN 

0070 

END 

V  wv 


\  HPj  »  « 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
001 1 


0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 


0030 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  PRINTO  C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  "SPREAD”  AND  BY  INITIAL  CONDITION 

C  SUBROUTINES  "INT12A"  AND  "INIT4A".  IT  USES  DATA  FROM  "MOVE" 

C  AND  MAKES  SOME  CORRECTIONS.  IT  ORGANIZES  AND  PRINTS  OUT  RESULT! 

C 

SUBROUTINE  PRINTO 

COMMON/SI ZE/R, D. WW, LI, L2, H, RO 

CGMMON/CHEMI /DENO, DCA, DCW, CS, CMW 

COMMQN/WATER/DENW, VISW, CR 

COMMON/ENVOR/PV, VISA, DENA,  TDC 

COMMON/ INTER /CQEF , SIGWA, SIGOA, SICOW, SIG 

COMMON/CONSTAT/UC, VW, UTBAR , UO, Ul, WT, ALPH, THETA1 

COMMON/ML OSS/ EVAPM,  DISSOM 

COMMON/MOVE/UPEAK ( 10 ) , XLE,  XTE, YLE,  YTE, DELT, TIME, TSTOP, TCHECK 
COMMON /CONTOUR /SHAPE, X ( 10) , Y< 10) , XC, YC, IC, IW, ISP, XO, YO 
COMMON/TRANSIT /UX ( 10, 10), UY< 10, 10), VWX  ( 10), 

1  VWY( 10), THETA ( 10), TI ( 10), ID, IT, IV, 

2  XU(10), YU (10), TT(10) 

COMMON/ ID/ ID1 , IDO, ID3 
COMMON/R'JNGE/ YY  <  5  )  ,  CC24),  WC5,  30) 

COMMON/MASS/TOTALE, TOTALD, TOTALM, DMASS 
COMMON/SPREAD/TI I , ATK, HTK, ATN, HTN, HMIN, INDEX, I FLAG 
COMMON/ ST YPE/SP I LLM, SPILMR, TSPILL, WS. 5TP , SPM 
COMMON/CURRENT/UBAR ( 10), DMOVE, UTOT, UTX, UTY, UREL 
COMM0N/SENSE/EVA(40,  10), DIS140,  10),  THK<40,  10),  TIN(40,  10), 

1  P IP  < 40 ) , TPT 
REAL  LTH 
C 

I  -  STP 

ITEMP  -  TIME  /  60. 

TEMP  -  FLOAT  (ITEMP) 

DIFFT  -  TIME  -  TEMP  *  60. 

TMASS  -  DEN0*HTN*YY(2> 

IF!  I.  EQ.  1  )  TMASS-O.  0 

TOTS  *  TMASS  +  TOTALM  +  TOTALD  +  TOTALE 
DEC  I  -  STP-FLOAT ( I ) 

IF  (DECI.LT.  0.  1999 )  CO  TO  100 
IF<  I.  EQ.  4)  CO  TO  50 
C 

c  - 

C  SPREADING  MODELS  l.B,  2.  B 

C  (13  *  INSTANTANEOUS  SPILL  IN  OPEN  WATER; 

C  23  «  CONTINUOUS  SPILL  IN  OPEN  WATER  WITH  NO  CURRENT) 

C  *-*  ALL  SLICKS  ARE  CIRCULAR  ** 

C  - 

c 

c  *■*■*■*■**■*♦*■*,*■**■*■*■*■#■*■*■*■*■*•*■#****■#■*+**•*•*******■*■*■*•*•*■*•*•*-*■*■*•*■*■*•»■*■*■-*•*•*■*  >• 

c  THE  NEXT  3  BLOCKS  PRINT  OUT  DATA  ON  SLICK  AREA,  THICKNESS, 

C  MASS,  EVAPORATED  MASS,  AND  OTHER  NON-MOVEMENT  PARAMETERS, 

C  »»-l‘*****»**»»*»«+Ht*»-»»-»**»HHHH««#*-*****-**-»*««******«*-*'»*»**#»*; 

c 

RADI  =  SQRT(YY< 1 )/3. 14159) 


C  -  45 


0031  RAD2  ■  SQRT< <YY< 1 )+YY<2) )/3.  14159) 

0032  WRITE  <1.5)  TEMP,  DIFFT. YY< 1 ),  YY<3).  RADI 

0033  WRITE  <6. 5)  TEMP,  DIFFT, YY< 1 ), YY < 3 ),  RADI 

0034.  5  FORMAT < ////2X,  7HTIME  -  . F1C. 2, BH  MINUTES,  2X. F7.  3, 3H  SEC0NDS/9X, 

1  18HTHICK  SLICK  AREA  «.  E12.  5,  6H  SQ.  M.  ,  2X, 

2  23HTHICK  SLICK  THICKNESS  *•,  E12.  5.  7H  METERS/9X. 

3  20HTHICK  SLICK  RADIUS  E12.  5.  7H  METERS) 

0035  IF<  I.  EQ.  1 )  GOTO  9 

0036  WRITE  <1.6)  YY<2),RAD2 

0037  WRITE  <6. 6)  YY<2),RAD2 

0038  6  '  FORMAT  <9X,* 

1  18HTHIN  SLICK  AREA  -,  E12.  5.  5HSQ.  M.  ,  /9X, 

2  20HTHIN  SLICK  RADIUS  -,  E12.  5.  6HMETERS) 

0039  9  WRITE  <1.7)  TOTALM, TOTALE,  EVAPM,  TOTALD.  DISSOM 

0040  WRITE  <6. 7)  TOTALM, TOTALS, EVAPM.  TOTALD.  DISSOM 

0041  7  FORMAT < /9X,  27HT0TAL  MASS  OF  THICK  SLICK  »,  E12.  5.  4H  KC.  /9X, 

2  27HT0TAL  EVAPORATED  MASS  «,E12.  5.  4H  KC.  , /9X, 

3  27HRATE  OF  EVAPORATION  ».  E12.  5.  1 5H  KC/ <  SEC-SQ.  M.  >,/9X, 

4  27HT0TAL  DISSOLVED  MASS  E12.  5,  4H  KC.  ,  /9X, 

2  27HRATE  OF  DISSOLUTION  -,  E12.  5, 15H  KC/ < SEC-SQ. M.  )> 

0042  IF< I. EQ. 1)  GOTO  10 

0043  WR I TE  < 1 .  8 ) TMASS 

0044  WRITE <6.  8) TMASS 

0045  8  FORMAT < 9X,  27HT0TAL  MASS  OF  THIN  SLICK  »,  E12.  5.  4H  KC.  > 

0046  10  WR ITE  < 1,  20 ) TOTS 

0047  20  FORMAT < //9X. 27HT0TAL  MASS  -, E12.  5, 4H  KG  ) 

0048  WR I TE  <  6,  20 ) TOTS 

0049  CO  TO  300 

C 

C  SPREAD I NO  MODEL  4.  S 

C  < CONTINUOUS  SPILL  IN  OPEN  WATER  WITH  CURRENT) 

C  **  ELONGATED  SLICK  ** 

C 

0050  50  CONTINUE 

0051  XW  -  2. 0*YY< 1 >/<UTBAR*TIME) 

0052  XW1  -  YY<2)*2.  0/ < UTBAR*TIME ) 

0053  WRITE  <1,55)  TEMP, DIFFT, YY< 1 ), YY<3),  XW 

0054  WRITE  <6.55)  TEMP, DIFFT, YY < 1 ), YY (3 ),  XW 

0055  WRITE  <1,57)  YY<2),XW1 

0056  WRITE  <6.57)  YY<2),XW1 

0057  55  FORMAT < ////2X, 7HTIME  -  ,F10.2,8H  MINUTES.  2X,  F7.  3,  8H  SEC0NDS/9X, 

1  18HTHICK  SLICK  AREA  -,  E12.  5.  6H  SO.  M.  ,  2X, 

2  23HTHICK  SLICK  THICKNESS  -,E12.  5, 7H  METERS/9X, 

3  30HTHICK  SLICK  DOWNSTREAM  WIDTH  *>  E12.  5,  IX, 6HMETERS) 

0C5S  57  FORMAT <9X, 

1  18HTKIN  SLICK  AREA  -. E12.  5, 6H  3Q.  M.  /9X, 

2  30HTHIN  SLICK  DOWNSTREAM  WIDTH  «,  El 2.  5,  1 X,  6HMETERS ) 

0059  WRITE  < 1 , 7 )  TOTALM, TOTALE, EVAPM, TOTALD.  DISSOM 

0060  WRITE  <6. 7)  TOTALM, TOTALE, EVAPM, TOTALD,  DISSOM 

0061  WRITEt 1, 8) TMASS 

0062  WRITE <6, 8) TMASS 

0063  WR ITE  < 1 . 20 ) TOTS 

0064  WRITE <6, 20) TOTS 


0065 


CO  TO  300 


c 

c 

c 

c 

c 

c 


0066 

100 

0067 

0068 

0069 

105 

0070 

0071 

0072 

0073 

106 

0074 

107 

0C75 

0076 

0077 

0078 

0079 

30 

0080 

0081 

C 

300 

0082 

0083 

0084 

0085 

0086 

0087 

298 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

299 

c 

c 

c 

c 

c 

c 

c 

c 

0095 

0096 

0097 

C 

C 

c 

0099  301 


1 


SPREADING  MODELS  1.  A,  2.  A 
<1A  -  INSTANTANEOUS  SPILL  IN  RIVER; 

2A  -  CONTINUOUS  SPILL  IN  RIVER  WITH  NO  CURRENT) 


CONTINUE 

WRITE  (1,103)  TEMP,  DIFFT, YY < 1 ) , VY ( 3 > 

WRITE  (6,103)  TEMP,  DIFFT, YY <3 ) ,  YY ( 3 > 

FORMAT  ( ///2X, 7HTIME  -  ,  F10.  2,  BH  MINUTES,  2X,  F7.  3,  BH  SEC0NDS/9X, 
18HTHICX  SLICK  AREA  «.  E12.  5, 6H  SQ.M.  , 2X, 

23HTHICK  SLICK  THICKNESS  -, E12. 5, 7H  METERS) 

IF ( I.  EQ.  1 )  GOTO  107 
WRITE  <1, 106)  YY ( 2 ) 

WRITE  (6,  106)  YY ( 2 ) 

FORMAT  ( 9X, 

18HTHIN  SLICK  AREA  «, E12.  3,  3HSQ.  M.  > 

WRITE  (1,7)  TOTALM, TOTALE, EVAPM, TOTALD, DISSOM 

WRITE  (6,7)  TOTALM, TOTALE, EVAPM, TOTALD, DISSOM 

IF(  I.  E<3.  1  )  GOTO  30 

WR ITE ( 1 , S ) TMASS 

WRITE <6. 8) TMASS 

WRITE( 1, 20)TQTS 

WRITE (6, 20) TOTS 

CONTINUE 
IJ  -  TIME 
IK  -  TPT 

IF  < I J.  EQ.  IK)  CO  TO  298 
MD  -  MOD ( IU, IK) 

IF  (MD.  NE.  0)  CO  TO  299 
CONTINUE 

INDEX  *  INDEX  +  1 

P  IP  (  INDEX  )  =»  TIME 

EVA < INDEX, IFLAC )  -  TOTALE 

DIS( INDEX, IFL AC)  -  TOTALD 

TKK< INDEX,  I  FLAG)  -  TOTALM 

TIN( INDEX, IFLAC)  -  TMASS 

CONTINUE 


TRACKING  MOVEMENT 


#»+♦««***♦•*«♦♦♦«■*•****♦♦♦*«*•**♦****♦«**♦«•*«****«*♦«**»**♦**■**** 
'DMOVE '  INDICES  ARE  DEFINED  IN  "MOVE". 
***■**-**•*-*-*-*■*■*•*-*-*•*■*■*•#*■*■*-*+■*•*■*  •*■*-*■*■*•*■*■*•#*■*-**•* *•#■*•*•*•#•**■»■*  *♦♦-*••*-*■*•»"*-*■*■*■ 

IF  (DMOVE.  EQ.  1.  0.  OR.  DMOVE.  EQ.  1.  1)  CO  TO  301 
IF  (DMOVE.  EQ.  2.  0)  CO  TO  311 
CO  TO  321 

**  HERE  TO  314  PERTAIN  TO  INSTANTANEOUS  SPILLS  *■* 

WRITE  (1,303)  XC, YC 


■  VWJ'.VTJ-.'C  '/V  ’•->  "J  V  *J m  ">  •>  •>  *->  V»  ’>'j 


•v*  •’  v;  >; 


v”  v>;-«  •.'•Vv’.i 


0099 

OlOO 

303 

0101 

C 

0102 

311 

0103 

0104 

313 

0105 

0106 

0107 

oi  oe 

314 

0109 

0110 

321 

0111 

0112 

0113 

0114 

C 

c 

c 

0113 

323 

0116 

C 

C 

C 

C 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

323 

0123 

C 

C 

C 

C 

0126 

0127 

327 

0128 

0129 

329 

0130 

0131 

333 

0132 


WRITE  <6,303)  XC,  YC 
FORMAT  <//9X, 

1  41HTHE  CENTER  OF  THE  SLICK  IS  LOCATED  AT  X 

2  E12.  3.  15H  METERS  AND  V  E12.  3.  7H  METERS) 

■  00  TO  300 

WRITE  (1/313)  XC 
WRITE  <6,313)  XC 

FORMAT  <//9X,23HTH£  WHOLE  SLICK  HAS  MOVED, El 2.  3. 

1  6HMETERS ) 

LTH-YY(1)/WW 

WRITE( 1, 314)  LTH/2+XC, XC-LTH/2 
WRITE<6,  314)  LTH/2+XC,  XC-LTH/2 

FORMAT ( 9 X, 40HTHE  DOWNSTREAM  EDCE  OF  THE  SLICK  IS  AT  -,E12.  3, 

*  7H  METERS,  IX,  30H  AND  THE  UPSTREAM  EDCE  IS  AT  E12.  5,  7H  METERS) 
CO  TO  300  < 

CONTINUE 

IF  <DMOVE.  LE.  3.  213)  00  TO  323 
IF  (DMOVE.  LT.  3.  900)  CO  TO  323 
IF  < DMOVE.  LT.  4. 213)  CO  TO  333 
CO  TO  333 

**  REST  OF  STATEMENTS  RELATE  TO  CONTINUOUS  SPILLS  ** 

TEMPI  -  XLE 
TEMP  2  -  0.  0 

**  NOW  CORRECT  IF  THERE  IS  NO  CURRENT,  SO  SLICK  IS  SPREAD  ** 

**  OUT  SYMMETRICALLY  ABOUT  SOURCE.  ** 

IF  (TEMPI.  EQ.  0.  0)  THEN 
TEMPI  -  YY< 1 ) / (2.  0*WW> 

TEMP2  -  -YY  < 1 ) / <  2.  0*WW> 

ELSE 

TEMPI -YY< 1 )/WW 
END  IF 
CO  TO  327 

TEMPI  -  XLE+YY < 1 ) / ( 2.  0#WW ) 

TEMP 2  -  XLE-YY  < 1 ) / <  2.  0*WW ) 

*t  IN  A  TIDAL  RIVER,  THE  TRAIL INC  EDCE  CANNOT  MOVE  ** 

**  DOWNSTREAM,  JUST  UPSTREAM.  ** 

IF  (TEMP2.  CT.  0.  0)  TEMP 2-0.  0 
WRITE  <1,329)  TEMPI,  TEMP2 
WR I TE  <6,  329 )  TEMP  1 , TEMP 2 
FORMAT  <//9X, 

1  47HTHE  LEADING  EDGE  OF  THE  SLICK  IS  LOCATED  AT  X  «, 

2  E12.  3, 6HMETER5/ 

3  9X, 

4  48HTHE  TRAILING  EDGE  OF  THE  SLICK  IS  LOCATED  AT  X  =, 

3  E12.  5, 6HMETERS) 

CO  TO  300 
CONTINUE 

WRITE  (1,334)  XLE, YLE 


C-48 


0133  WPITE  (6,334)  XLE, YLE 

0134  334  FORMAT  <//9X, 

1  47HTHE  LEADINC  EDOS  OF  THE  SLICK  13  LOCATED  AT  X  «, 

2  E12.  9, 2X, 10HMETER3  AND/33X.3HY  E 1 2  3. 2X, 6HMETERS/3X , 

3  61HTHE  TRAILING  EDOE  OF  THE  SLICK  IS  LOCATED  AT  THE  SPILL  0R1 

4  > 

0133  00  TO  300 

0136  333  TEMPI  -  XL£+UO«SORT ( YY ( 1 ) /3  141391+XC 

0)37  TEMP 2  -  YLE+U1 *SQRT ( YY ( 1 ) /3  14139>+YC 

0138  TEMP3-<SORT<XLE**2.  +YLE**2  )-2  *SQRT(YY( 1 )/3  14139))*U0 

0139  TEMP 4* ( SORT  <  XL£**2  ♦YLE**2  >-2  *SGRT < YY < 1 > /3  14139) >«U1 

0140  IF ( ( TEMP3-XC >*U0  OE  0  )  TEMP3-XC 

0141  IF < < TEMP4-YC >*U1  OE  0  )  TEMF4-YC 

0142  337  WRITE  (1,339)  TEMPI,  TEMP2,  TEMP3,  TEMP4 

0143  •  WRITE  (6,339)  TEMP  1 , TEHP2.  TE.MP3,  TEMP  4 

0144  339  FORMAT  <//9X. 

1  47HTHE  LEAD  I  NO  EDOE  OF  THE  SLICK  IS  LOCATED  AT  X  -, 

2  £12  3,  2X,  10HMETERS  AND/ 33 X ,  3HY  -,E12  3,  2X  ,  6HMETERS/3X , 

3  4SHTHC  TRAILING  EDGE  Of  THE  SLICK  IS  LOCATED  AT  X  *, 

4  E12  3, 2X. 10HMETERS  AND  34X.3HY  - , E 1 2  3, 2X , 6HMETERS ) 

0143  300  CONTINUE 

0146  999  RETURN 

0147  END 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  RUNKUT 

C 

C  DIFFERENTIAL  EQUATION  SOLVER 

C  RUNG  6  KUTTA — VERNER  FIFTH  AND  SIXTH  ORDER  HETtWjD 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCicCCCCO 

r 

c 

THIS  SUBROUTINE  IS  A  STANDARD  RUNGE-KUTTA  INTEGRATION  ROUTINE 

c 

CALLED 

BY  "INTE".  IT  CALLS  "UERT8T"  AND  "UCETIO". 

c 

«M> 

N  - 

NO.  OF  SIMULTANEOUS  FIR8T-0RDER  DIFFERENTIAL  EOyAT I ONS 

c 

FCN 

■  SUBROUTINE  WHERE  DIFFERENTIAL  EQUATIONS  ARE  GIVEN 

c 

#« 

X  - 

STARTING  TIME 

c 

*♦ 

Y  - 

MATRIX  OF  DIFFERENTIAL  EQUATIONS 

c 

XEND 

i  «  STARTING  TIME  *  DELT 

c 

TOL, 

IND,  C,  NW,  W,  TER  -  NUMERICAL  AND  ERROR  DATA  FOR 

c 

c 

#« 

CHECKING  CONVERGENCE 

0001 

SUBROUTINE  RUNKUT (N,  FCN.  X. Y,  XEND.  TOL.  IND.  C. NW . H.  IER ) 

0002 

INTEQER 

N,  IND. NW.  IER 

0003 

INTCOER 

K 

0004 

DIMENSION 

Y  <  N  > .  C  <  24  ) ,  W  <  NW.  9 ) .  RK  ( 39  > 

0005 

DATA 

2ER0/0.  OX, ONE/1  0/,  TWO/2  0/, THREE/3.  0/ 

0004 

DATA 

FOUR/4  0/. FIVE/9.  0/.  SEVEN/7  0/ 

0007 

DATA 

TCN/10.  O/.HALF/O,  9/.R9'0.  9/ 

oooe 

DATA 

C4D15/. 266666 7E0/ 

0009 

DATA 

C2D3/  666666 7E0/ 

OOIO 

DATA 

C9D6/  8333333E0/ 

0011 

DATA 

C1D4/  1666667E0/ 

0012 

DATA 

C1D1 9/  664646 7E- 1 / 

0013 

DATA 

C2D96/I20. 4273/ 

0014 

DATA 

RERS/2.  77996E-17/ 

0019 

DATA 

RTOL/l. 05679 IE-22/ 

0016 

DATA 

RK  <  1  )/.  166666 7E-KJO/ 

0017 

DATA 

RK<  2)/.  9333333C— 0 1 / 

0018 

DATA 

RK (  3)/. 2133333E+00/ 

0019 

DATA 

RK  (  4)/  .  8330333E*OO/ 

0020 

DATA 

RK  <  9>/  266666 7E+01/ 

0021 

DATA 

RK (  4)/.  2900000E*01 / 

0022 

DATA 

RK (  7)/  257S129E-KJ1/ 

0023 

DATA 

RK (  8>/. 9166667E*01/  ! 

0024 

DATA 

RK <  9)/.  6440629E-KJ1  / 

0029 

DA ’’A 

RK ( 10  > / , 8094 16 7E +00/ 

0026 

DATA 

RK( 11 )/  2400000E*01/ 

0027 

DATA 

RK» 12)/  0OOOOOOE *0 1  / 

0029 

DATA 

RK (13)/  6 9604 9SE *01/ 

0029 

DATA 

RK ( 1 4  > /  3099996E*00/ 

0030 

DATA 

RK( 19)/  3490980€-K>0/  i 

0031 

DATA 

RK< 16)/  99086676*00/ 

0032 

DATA 

RK( 17)/  1 693333E*0 1 / 

0033 

DATA 

RK ( 18)/  94998826*00/ 

0034 

DATA 

RK( 19) /.  324 OOOOE  *00 / 

0039 

DATA 

RK ( 20  > /.  2337BB2E*00/ 

0036 

DATA 

RK ( 2 1 ) / .  2033469E  *0 1 / 

0037 

DATA 

RK ( 22 ) /  69767446*01/ 

0038 

DATA 

RK ( 23) /  9648 1 80E*0 1 / 

C-50 


w  iwwywi 


wiwpwyBygwyyi 


riw'gy^-^^vpfyp 


.Hi 

I  0039 

DATA 

RK  <24 ) /.  1 3738 1 6E+00/ 

v\ 

’  0040 

DATA 

RK  <  25 ) /.  2863023E+00/ 

,*«■ .% 

1  .  0041 

DATA 

RK  <  26 ) /.  1441786E+00/ 

„40 

1  0042 

DATA 

RK ( 27 ) /,  7 500000E-0 1 / 

1  0043 

DATA 

RK  <  28 ) /.  3899287E+00/ 

*•*  ”. 

0044 

DATA 

RK  <  29 ) /.  3194444E+00/ 

* 

|  0045 

DATA 

RK  <  30 ) /.  1 350384E+00/ 

1  0046 

DATA 

RK ( 31 ) /.  1 07S330E-0 1 / 

v\ 

0047 

DATA 

RK ( 32 > /.  69805 19E-01 / 

^v. 

0048 

DATA 

RK ( 33 ) /.  6250000E-02/ 

rV*",% 

0049 

DATA 

RK  <  34 ) /,  69630 1 2E-02/ 

Cv-;- 

0050 

DATA 

RK ( 35 ) / .  6944444E-02/ 

V»V' 

0051 

DATA 

RK  <  36 ) /  6138107E-02/ 

slag 

0052 

DATA 

RK ( 37 ) /. 6818182E-01 / 

jP|pi 

l  '  .  *  0053 

DATA 

RK  <  38  > /.  1 078330E-01 / 

p  '.* 

0054 

DATA 

RK  <  39  > /.  69805 19E -01 / 

>>:• 

0055 

IER  -  0 

*  *• "  *« 

0054 

IF  <  IND  LT.  1.  OR.  IND.  OT.  6)  00  TO  290 

<*>,* 

0057 

00  TO  <5.5.40.145,265.265).  IND 

0058 

«* 

IF  < N.  OT.  NU.  OR  TOL.  LE.  ZERO)  00  TO  295 

$ 

0059 

IF  <  IND  EQ.  2)  CO 

TO  15 

0060 

DO  10  K-l, 9 

•\V4 

0061 

COO  -  ZERO 

*’ ..  "*» 

0062 

10 

CONTINUE 

«\  *\ 

0063 

00  TO  30 

>.  .*, 
V*  -• 

0064 

15 

CONTINUE 

*  • 
1  •  *  .• 

0065 

DO  20  K-l, 9 

sag 

EX3|i 

0066 

C  <K)  -  A8S < C  < K  > ) 

jB^oN 

0067 

20 

CONTINUE 

N*\* 

0068 

IF  <C<  1  >.  NE  FOUR. 

AND. C<  1  ),  NE  FIVE)  00  TO 

•.V 

0069 

DO  25  K-l, N 

0070 

C  ( K-*30 )  -  AB9(C<Kf30n 

k*4,* 

0071 

25 

CONTINUE 

v  ■/ 

0072 

30 

CONTINUE 

sa 

0073 

C< 10)  -  REPS 

0074 

C<  11  )  -  RTOL 

V/.*, 

V,*.* 

y  v 

0075 

C  <  20 )  -  X 

0076 

DO  35  K-21, 24 

.*  %’ 

0077 

C  <  K )  -  ZERO 

0078 

35 

CONTINUE 

* A 

0079 

00  TO  45 

?#d 

0080 

40 

IF  <C  <21 )  NE.  ZERO 

AND.  <  X  NE  C  (20)  OR  XEN1 

0081 

C  <21 )  -  ZERO 

v  V 

0082 

45 

CONTINUE 

y> 

0083 

50 

CONTINUE 

\‘s 

0084 

IF  < C ( 7 )  EQ.  ZERO 

OR.  C<24).  LT.  C<7)  >  CO  TO 

V> 

0085 

IND  -  -1 

V> 

0086 

00  TO  9005 

0C87 

55 

CONTINUE 

0088 

IF  < IND  EQ  6)  00 

TO  60 

*,  V, 

0089 

CALL  FCN  <N,  X,  Y.  W<  1.  1  )  > 

4V,  ’ 

0090 

C ( 24 )  -  C  <  24 ) +  ONE 

0091 

60 

CONTINUE 

•  ’ .-  * 

0092 

C< 13)  -  C  <  3 ) 

/•'I'r 

0093 

IF  <C (3)  NE  ZERO) 

00  TO  120 

30 


E0  C  <  20  > ) )  CO  TO  283 


33 


,\  .% 
>  .*•' 

.s'  ■. 


C-51 


0094 

0095 

0096 

0097 

0090 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0106 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0126 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0143 

0146 

0147 

0140 


TEW  -  ZERO 

IF  <C< 1 ). NE.  ONE)  CO  TO  70 
DO  65  K-l.N 

TEMP  -  AMAX 1 (  TEMP*  ABS( Y(K ) >  > 

65  CONTINUE 

C< 12)  -  TEMP 
00  TO  US 

70  IF  <C<1).  NE.  TWO)  00  TO  75 
C  < 12)  -  ONE 
00  TO  115 

75  IF  <C  < 1 ) .  NE.  THREE )  00  TO  85 
DO  80  K-l.  N 

TEMP  -  AMAX1 (TEMP.  AB8(Y(K) )/C(2)  ) 

80  CONTINUE 

C ( 12)  -  AMIN1 (TEMP.  ONE) 

00  TO  115 

85  IF  (C<1).  ME.  FOUR)  00  TO  95 
DO  90  K-l.N 

TEMP  -  AMAX1 (TEMP.  AB8(Y(K) )/C(K+30> ) 

90  CONTINUE 

C ( 12)  -  AMIN1 (TEMP. ONE) 

00  TO  115 

95  IF  <C(1).  NE.  FIVE)  00  TO  105 
DO  100  K-l.N 

TEMP  -  AMAX1  (TEMP.  A88(Y(K)  )/C(K+30> ) 

100  CONTINUE 

C ( 12 )  -  1EMP 
00  TO  115 
105  CONTINUE 

DO  110  K-l.  N 

TEMP  -  AMAXKTEMP.  A*S(Y(K>)) 

110  CONTINUE 

C ( 12)  -  AMIN1 (TEMP, ONE) 

115  CONTINUE 

C( 13)  -  TEN—AMAX 1<C(11).C(10) *AMAX 1 ( C (12) /TOL.  ABS ( X ) ) ) 

120  CONTINUE 

C  ( 1 5 )  -  C  (  3 ) 

IF  (C<3>. EQ.  ZERO)  C(13>  -  ONE 

IF  (C(6).  NE.  ZERO  AND.  C<3>. NE.  ZERO)  C(16)  -  AMIN1 ( C ( 6 ) .  TWO/C ( 3 ) 

IF  ( C ( 6 ) .  NE  ZERO  AND.  C( 3). EO.  ZERO)  C(16>  -  C(6> 

IF  <C(6).  EO.  ZERO  AND.  C  <  3) .  NE.  ZERO)  C(16>  -  TWO/C(3) 

IF  <C<6>.  EO.  ZERO  AND.  C<3>.  EQ.  ZERO)  C(16)  -  TWO 

IF  <C< 13). LE.  C( 16) )  ©0  TO  123 
IND  -  -2 
00  TO  9003 
123  CONTINUE 

IF  (  IND,  OT.  2)  00  TO  130 
C< 14)  -  C  <  4 ) 

IF  <C(4>.  EO.  ZERO)  C(14)  -  C < 16 )*TOL**C 1 D6 
00  TO  140 

130  IF  <C<23)  OT.  ONE)  00  TO  133 
TEMP  -  TWO-C (14) 

IF  (TOL.  LT  C7D96*C( 19) )  TEMP  -F9*(T0L/C  . 9 > ) **C 1 D6*C ( 1 4 ) 

C ( 1 4 )  -  AMAX1 (TEMP, HALF*C( 14) ) 

00  TO  140 


C  -  5  2 


0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

018* 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 


135  CONTINUE 

C  (  14  )  -  HALF*C  <  1 4 ) 

140  CONTINUE 

C ( 14 )  -  AM INI (C< 14). C(16) ) 

C  < 1 4 )  -  AMAX1 <C< 14). C( 13) ) 

IF  <C<8). EO.  ZERO)  GOTO  145 
IND  -  4 
00  TO  9005 
145  CONTINUE 

IF  <C(14). CE.  ABS(XEND-X))  00  TO  150 
C ( 1 4  >  -  AMIN1 <  C ( 14 ) . HALF*A8S  <  XEND-X ) ) 

C ( 17 )  -  X+SIGN<C< 14), XEND-X) 

00  TO  155 
150  CONTINUE 

C  < 1 4 )  -  ABS( XEND-X) 

C  < 17 )  -  XEND 
155  CONTINUE 

C< 18)  -  C< 17)-X 
DO  160  K-l,  N 

W  <  K, 9 )  -  Y<K)+C<1B)*N<K.  1)*RK<1> 

160  CONTINUE 

CALL  FCN  <N,  X+C< 18>*C1D6, W< 1. 9),  W< 1,  2)  ) 

DO  165  K-l,  N 

W<K.9>  -  YOW+C  ( 18  >*<WCL  1 ) *RK < 2 > +W ( K.  2>*RK (3) > 

165  CONTINUE 

CALL  FCN  <N, X+C< 18>*C4015.  W(l.  9),  W< 1,  3) ) 

DO  170  K-l,  N 

W<K,9)  -  Y<K)*C<ie>*<W<R, 1 )*RK(4)-W<K. 2>*RK<5)+W(K, 3>*RK<6> > 
170  CONTINUE 

CALL  FCN  (N, X+C< 18>*C2D3. W  <  1 , 9  > ,  W  C 1 , 4  >  ) 

DO  175  K-l,  N 

W<K,9>  -  Y(K)+CC18)«<-W<K,  1 )  *RK  <  7  >  *W  <  K.  2 ) *RK < 8 > -W < K,  3)*RK(9> 

1  ♦W(K, 4)#RK< 10)  ) 

175  CONTINUE 

CALL  FCN  (N.  X+C< 18)*C5D6. W<1,  9), W(l.  5) ) 

DO  ISO  K>1.N 

W(K,9)  -  Y<K)«-C  (  18)*<W<K.  1  >*RK<  11  )-W(K,  2)*RK<  12)-»-W<K,  3)  *RK<  13! 
1  -W<K,  4>*RK< 14)+W<K,  5>*RK< 15) > 

180  CONTINUE 

CALL  FCN  <N,  X+C< 18) , W< 1,  9) , W< 1, 6) ) 

DO  185  K-l, N 

W<K,9)  -  Y  <  K  >  +C ( 1 8 ) * ( -W < K,  1 ) *RK  < 1 6 ) +W ( K, 2 ) *RK ( 17 ) ~W ( K, 3  > 

1  *RK( 1 8 ) -W < K ,  4)*RK< 19)+W(K, 5>*RK<20> ) 

185  CONTINUE 

CALL  FCN  (N,  X+C< 18)«C1D15. W( 1, 9), W( 1, 7) ) 

DO  190  K-l,  N 

W<K,9)  -  Y(K)*C(18)*(U(K, 1 >*RK(21 >-U(K, 2 ) *RK < 22 > +W < K, 3) *RK<23; 
1  -W ( K,  4 ) *RK <  24  >  +W  <  K,  5 ) *RK <  25 )+W ( K, 7 ) *RK <  26 ) ) 

190  CONTINUE 

CALL  FCN  <N,  X+C( 18),  W< 1, 9),  W( 1, 8)  ) 

DO  195  K-l,  N 

W(K,9)  -  Y(K)*C(18)*(W(K,  1  )  *RK  (  27  )  +W  t  K,  3  )  *RK  <  28  )  ( K,  4  ,'  »RK  (  29  ) 

1  +W(K,  5)*RK(20)+W(K,  7)*RK<31 )+W(K,  B)*RK(32) ) 

195  CONTINUE 

C ( 24 )  -  C  ( 24 } +SEVEN 


0199 

0200 


0201 
0202 
0203 
0204 
0203 
0206 
0207 
0206 
0209 
0210 
0211 
0212 
0213 
0214 
0213 
0216 
0217 
02  IB 
0219 
0220 
0221 
0222 
0223 
0224 
0223 
0226 
0227 
022S 
0229 
0230 
0231 
0232 
0233 
0234 
0233 
0236 
0237 
0230 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0230 
0231 
0232 


DO  200  K-l.N 

W(K. 2)  -  W(K.  1 >*RK(33)+W(K. 3)*RK (34 >-«( K.  4 ) *RK ( 33 >+W( K,  3) 
1  *RK(36)*W(K, 6)*RK(37)-W(K. 7 >*RK < 38 >-W<K.  8>*RK(39) 

200  CONTINUE 

TEMP  -  ZERO 

IF  (C(l).NE  ONE)  00  TO  210 
DO  203  K-l.N 

TEMP  -  AMAXKTEMP,  ABS(W(K.  2))  > 

203  CONTINUE 
00  TO  260 

210  IF  <C<1 ). NE.  TWO)  00  TO  220 
DO  213  K-l.  N 

IF  < Y < K ) .  EO.  ZERO)  00  TO  280 

TEMP  -  AMAX1 (TEMP, ABS(W(K. 2)/Y(K) > ) 

213  CONTINUE 
00  TO  260 

220  IF  <C< 1 >  NE.  THREE)  00  TO  230 
DO  223  4-1, N 

TEMP  -  AMAX1 (TEMP, ABS(W(K< 2) )/AMAXl <C<2>» AB8( Y(K) > ) ) 

223  CONTINUE 
00  TO  260 

230  IF  (C(l>  NE. FOUR)  00  TO  240 
DO  233  K-l,  N 

TEMP  -  AMAX1 (TEMP, ABS(W(K.  2) 1/AMAX1 (C(K+30),  ABS(Y(K) ) ) ) 
233  CONTINUE 
00  TO  260 

240  IF  (C(l).  NE.  FIVE)  00  TO  230 
DO  243  K-l, N 

TEMP  -  AMAX1 (TEMP, ABS(W(K, 2)/C(K+30>  > ) 

243  CONTINUE 
00  TO  260 
230  CONTINUE 

DO  233  K-l,  N 

TEMP  -  AMAX1 (TEMP. AB8(W(K, 2) )/AMAXl (ONE,  ABS(Y(K> > ) ) 

233  CONTINUE 
260  CONTINUE 

•  C ( 1 9 )  -  TEMP*C( 14)*C < IS) 

IND  -  3 

IF  <C< 19).  OT.  TOL)  IND  -  6 
IF  <C<9). NE.  ZERO)  00  TO  9003 
263  CONTINUE 

IF  ( IND.  EO.  6)  00  TO  273 
X  -  C( 17) 

DO  270  K-l,  N 

Y ( K  >  -  W  <  K, 9) 

270  CONTINUE 

C ( 22 )  -  C ( 22 ) +ONE 
C ( 23 )  -  ZERO 
IF  (X. NE.  XEND)  00  TO  30 
IND  -  3 
C ( 20  >  »  XEND 
C  ( 21  )  -  ONE 
00  TO  9003 
273  CONTINUE 

C ( 23 )  -  C  <  23 ) ♦ONE 


gy  yj  f  ffpF*  >  i  r-yr;  "j»m  7^ 


yy  7  *  y 


■?;?  7 


.»  '•*.  ■«71^  -j-vry  J1 


A* 


/' 


UB 

0233 

IF  <  C ( 14 ) .  0T.  C  ( 13)  ) 

0234 

IND  -  -3 

'«** 

0233 

00  TO  9003 

■**> 

0234 

280 

CONTINUE 

* 

r  0237 

IER  -  132 

> 

0238 

00  TO  9000 

B 

0239 

283 

CONTINUE 

0260 

IER  -  131 

> 

0261 

00  TO  9000 

tS 

0262 

290 

CONTINUE 

•  *, 

0263 

IER  -  130 

>. 

0264 

00  TO  9000 

1 

0263 

0266 

293 

CONTINUE 

IER  -  129 

0267 

9000 

CONTINUE 

0268 

9003 

CONTINUE 

•y 

0269 

RETURN 

*  X 

0270 

END 

jS 


a 


s 


;v 

.V 

,v 

ra 


jh 
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0001 
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0004 
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0010 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  SPLOC 

C  SPILL  LOCATION  DEFINITION 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  "DMODEL".  IT  INPUTS  THE  SPILL 

C  SOURCE  LOCATION.  IF  THE  SPILL  IS  IN  A  RIVER  (SHAPE  <  2),  THE 

C  SPILL  OCCURS  AT  X  -  0,  Y-0  AND  X  >  0  IS  DOWNSTREAM.  IF  THE  SPI 

C  IS  IN  A  LAKE  OR  COAST.  THE  X. Y  LOCATION  OF  SOURCE  IS  INPUT. 

C  IF  THE  CURRENT  -«  F(SPACE).  THE  BOX  OR  SLICE  IN  WHICH  THE  SOURC 

C  LIES  IS  ALSO  REQUESTED. 

C  ♦*  XO. YO  -  INITIAL  SPILL  LOCATION.  M 

C  **  ISP  -  BOX  OR  SLICE  NO.  WHEN  CURRENT  -  F( SPACE)  IN  OPEN  WA 

C 

SUBROUTINE  SPLOC 

COMMON/CONTOUR /SHAPE. X < 10 ) , Y< 10) .  XC.  YC.  IC.  IW.  ISP,  XO.  YO 
COMMON/TRANSIT/UX ( 10.  10).UY(10. 10).  VWX(IO). 

1  VWY < 10) , THETA < 10).  TI ( 10),  ID.  IT,  IV, 

2  XU< 10). YU< 10). TT(IO) 

I  -  SHAPE 

IF  ( I  .  EQ.  1  )  SO  TO  99 
7  WRITE  <6,  10) 

10  FORMAT  (IX,  41 HO I VE  SPILL  COORDINATES  X  AND  Y,  IN  METERS) 

READ  (5. *, ERR-7)  XC. YC 
WRITE  < 1,  12)  XC.  YC 
XO  -  XC 
YO  -  YC 

12  FORMAT  (//5X.30H5.  THE  SPILL  ORIGIN  IS  AT  X  -  . E12.  5, 

1  IX.  10HMETERS  AND,  /31X,  4HY  »  ,E12.  5.  IX.  7HMETERS.  ) 

IF  (IC.  EQ.  2.  OR.  IC.  EQ.  4)  00  TO  27 
ISP  -  1 

00  TO  99 

27  WRITE  (6.30) 

30  FORMAT < IX,  62HWHAT  BOX  (LAKE)  OR  SLICE  (COAST)  DOES  THE  SPILL  C 

*OIN  LIE  IN?) 

READ  <3,*,ERR-27>  ISP 
99  RETURN 

END 
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»T>T? 


0001 

0002 

0003 

0004 

> 

0005 

0006 

vV 

0007 

oooe 

0009 

0010 
001 1 

;*v 

0012 

0013 

*•/ 

0014 

,v, 

a 

0015 

0016 

0017 

0018 

0019 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  SPREAD 

C  THIS  IS  THE  MAIN  COMPUTING  BLOCK 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  "DMODEL".  IT  ORGANIZES  THE 

C  CALCULATIONS  AND  CALLS  THE  COMPUTING  EQUATIONS.  IT  ASKS  FOR 

C  INPUT: 

C  •*  TPT  -  TIME  INTERVAL  BETWEEN  PRINTOUT  OF  RESULTS,  SEC 

C 

SUBROUTINE  SPREAD 

COMMON/STYPE/SP ILLM, SPILMR, TSPILL,  WS,  STP,  SPM 
COMMON/CONTOUR /SHAPE, X < 10 ) , Y ( 10 ) ,  XC. YC, IC, IW, ISP, XO, YO 
C OMMON / CONST AT /UC, VW, UTBAR, UO, Ul. WT, ALPH, THETA 1 
COMMON/TRANSIT /UX  < 10,  10) , UY( 10,  10), VWX < 10) , 

1  VWY <10>, THET  A  < 1 0 ) ,  TI (10),  ID,  IT,  IV. 

2  XU( 10),  YU< 10),  TT( 10) 

COMMON/MASS /TOTALS, TOTALD. TOTALM,  DMASS 

COMMON/MOVE/UPEAK (10), XLE, XTE, YLE, YTE, DELT. TIME, TSTOP, TCHECK 
COMMON/SPREAD/TI I, ATK, HTK,  ATN, HTN,  HMIN,  INDEX,  I FLAG 
C OMMON /RUNGE/YY  <  5 ) ,  C  <  24 ) ,  W  <  3,  30 ) 

COMMON /MLOSS/EVAPM,  DISSOM 

COMMON/CURRENT /UBAR ( 10) , DMOVE,  UTOT,  UTX,  UTY,  UREL 
COMMON /EVAD IS/ DAN, UXA, SCHMIA, CSA,  DWN,  UXW,  SCHMIW,  CSW 
COMMON/SENSE/EVA (40, 10). DIS(40, 10), THK(40, 10). TIN(40, 10), 

1  P IP  <  40 > , TPT 

COMMON/UAVE/UCX 1 , UCY 1 , VWX 1 , VWY 1 

COMMON /PR  I  M/PR  I ME ( 5 ) ,  I DEB, KKK 

I  -  STP 

IH  *  0 

U-SHAPE 

KKK-0 


IF  T3T0P/TPT  IS  GREATER  THAN  40.  USER  WILL  BE  ASKED  TO 
REENTER  A  PRINTOUT  TIME  STEP (TPT).  OTHERWISE,  USER  CAN 
INCREASE  ARRAY  SIZES  IN  LABELED  COMMON  /SENSE/  : 

EVA, DIS, THK,  TIN,  PIP 


WRITE  (6,  1 ) 

FORMAT  < / 1 X i 40HINPUT  THE  PRINTOUT  TIME  STEP  IN  MINUTES.  ) 

READ  (5,-*)  TPT 
TPT-TPT*60. 

TTRY-TSTOP/TPT 
IF ( TTRY. OT.  40.  )  THEN 
WRITE ( 6 i 6) 

FORMAT( IX, 

47HY0U  HAVE  EXCEEDED  ALLOWABLE  NUMBER  OF  PR  INTOUTS/ 1 X, 
42HWITH  THIS  TIME  STEP.  THE  PROBLEM  DURATI0N/1X, 

56HDIVIDED  BY  THIS  PRINTOUT  TIME  STEP  MUST  BE  LESS  THAN  40. 
/IX, 6HAGAIN, ) 

GOTO  5 
ELSE 
END  I F 


*•***■*»■»-*■»■*-*■*•*•*< 
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c 

c 

c 

c 

c 

c 

0031 

C 

c 

c 

c 

c 

0032 

0033 

0034 

0033 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044  103 

0043 

0046 

0047  2 

0048 

0049  3 

C 
C 
C 
C 
C 
c 
c 
c 
c 

0030 

C 

C 

C 

0031 

0032  4 

c 

0033 

0034 

0033 

0036 

0037 

C 

C 

C 

C 


NEXT  11  STATEMENTS  CALCULATE  DUMMY  VARIABLES  NEEDED  TO 
CALCULATE  THE  VELOCITY  USED  IN  THE  SPREADINO  MODELS  — 
UTBAR,  AT  STATEMENT  100  —  WHEN  NEITHER  THE  CURRENT  NOR 
THE  WIND  DEPEND  ON  TIME. 


IF ( J.  OE.  2)  M«ISP 

#***#*******#*hm»**'****-*****h»'*-*  •*■*■*•**■*•*•*•**•**•*■*■*-*#■*  ■#•****■*#■**■*•*■*■*■**• 

ISP  -  BOX  OR  SLICE  OF  SPILL  LOCATION  WHEN  CURRENT  -  F(SPACE) 

*#******■*•**#*#■*•*■*■*■*■*•*■*•*■**■*•*■*•#»♦■**■»■**•**■*■*♦•*•*•**•*■*•*■*•**■**■**+■•■*■#•*•*•*■*• 


IF(  J.  EQ.  1 )  M-l 
UCX 1  "UX  <  Mi  1  ) 

UCY1-UY(M,  1) 

VWX1  -  VWX(l) 

VWY1  -  VWY  < 1 ) 

IF <  J.  EQ.  1  )  THEN 

VWX1-VW  *  COS  <  THETA! ) 

UCX1-UC 
ELSE 
END  IF 

IF  < I  . EQ.  4)  00  TO  103 
CO  TO  200 

IF  <J.  NE.  1)  CO  TO  2 

IF(IC.  CT.  1.  OR.  IW.  OT.  1)  00  TO  3 

CO  TO  100 

IF<  IC.  OT.  2.  OR.  IW.  OT.  1 )  00  TO  3 

00  TO  100 

CONTINUE 

***********************  ****hm>+-*  ■**♦■*■*•*-*♦♦•*■*-*■*■#•*•#**-*-*■***•»  •***■*•*-*■»* 

NEXT  7  STATEMENTS  CALCULATE  THE  VELOCITY  USED  IN  THE  SPREADINO 
MODELS  —  UTBAR  --  WHEN  THE  CURRENT  OR  WIND  IS  A  FUNCTION  OF  Til 

CALL  SUBROUTINE  UTPEAK  TO  COMPUTE  MAXIMUM 
TRANSPORT  VELOCITY  WHEN  THE  CURRENT  OR 
WIND  IS  A  FUNCTION  OF  TIME 
CALL  UTPEAK 

CALL  SUBROUTINE  CURRENT  TO  CALCULATE 
AVERAGE  TRANSPORT  VELOCITY  OVER  ENTIRE 
SPILL  DURATION 
CALL  CURRT 
CONTINUE 

IF  <  J.  OE.  2)  M-ISP 
IF !  U.  EQ.  1  )  Ml— 1 

IF ( UBAR  <  M ) .  LT.  ( 0.  3*UPEAK < M ) ) )  00  TO  30 
UTBAR  »  UBAR(M) 

00  TO  200 


UTBAR  .  LT.  (0.  3*UPEAR) 

SET  UT  -  0  AND  CHANCE  SPREAD  MODEL  TO  MODEL 


C-58 
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0068 

0069 


0070 

0071 


C 

C 


WITHOUT  CURRENT. 


0058 

30 

DO  35  KK-1,  ID 

0059 

0060 

55 

UBAR(KK)  -  0  0 
CONTINUE 

0061 

0062 

UTBAR  -  0.  0 

IF  (  STP .  EQ.  4.  1  ) 

STP-2.  1 

0063 

IF (  STP.  EQ.  4.  2  ) 

STP-2.  2 

0064 

PRINT  •*,  'CHANGE 

TO  MODEL  ' ,  STP 

0063 

0066 

100 

GO  TO  200 

UTBAR  -  SORT {  < UCX1+0.  035*VWX  1  ) *-»2+ 

0067 

200 

1  < UCY 1+0.  033*VWY1 5**2 > 

CONTINUE 

C 

C 

C 

C 

C 

299 


1 

2 

3 


-  CALL  SUBROUTINE  INIT  TO  CALCULATE 

INITIAL  CONDITIONS  - 

WRITE  <1,299) 

FORMAT (1H1/10X, 

60H***-**-*-* 

/10X,  1H+,  16X, 22HSPREADING  MODEL  OUTPUT,  18X,  1H*/10X, 

60H*-****-*  ■***■*■»•*-*•**•*-»•»-****■**-**-*•*-**-*■*•***■»  •*-**•*+•******•******■**■*•»*• 

CALL  INIT 

IF  <  KKK.  EQ.  3  5  GOTO  331 

*##**********-*****************♦**■*******•*■*•*■*•*■*•#**■*■*-*-»■*♦-*■*■*♦■*■*< 

'KKK '  IS  A  CODE  THAT  DETERMINES  IF  AN  INSTANTANEOUS  SPILL  HAS 
EVAPORATED  OR,  FOR  A  CONTINUOUS  SPILL-  IF  THE  EVAPORATION  RATI 
DISCHARGE  RATE,  DURING  THE  INITIAL  CONDITION  TIME  PERIOD.  IT 
IS  COMPUTED  IN  "INT12A"  AND  "INITAA'V 

*♦■»*♦♦♦*■**■**♦-**■•***■***■**-*+•»-**-*-*•***♦*•******+•**■*■****-»*■********•*< 


0072 

TIME-TII 

0073 

YY  < 1 )-ATK 

0074 

YY(2)-ATN 

0075 

YY ( 3 ) *HTK 

0076 

YY<4)  «  0.  0 

0077 

YY  (  5 )  -  0.  0 

0078 

C 

300 

ISTP-STP 

0079 

IF< ISTP.  EQ.  1 )  CO 

TO  350 

c 

-  WHEN  ISTP-1 

SPILL  IS  INSTANTANEOUS  - 

0080 

SPM  -  SPILMR 

0081 

310 

n 

IF  <TIME.  LT.  TSPILL)  CO  TO  330 

L 

c 

*■»«■***■»*«■*•**+*++*««♦«*****+«*♦•»•*■*♦■**■»••*♦♦****•»********«****■•< 

c 

FROM  HERE  TO  350 

IS  EXECUTED  ONLY  IF  SPILL  IS  CONTINUOUS 

AND  DISCHARGE  HAS  JUST  STOPPED. 


-  SPILL  WAS  CONTINUOUS.  HOWEVER  IT  HAS  STOPPED. 

-  CALL  'SWITCH'  AND  CHANGE  TO  APPROPRIATE 

INSTANTANEOUS  SPILL  MODEL  - 


C-59 
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j 

4 

i 

J 


0062  CALL  SWITCH 

0083  330  CONTINUE 

C 

C  CALL  SUBROUTINE  TRANSP  TO  CALCULATE  SURFACE  TRANSPORT  VELOC. 

0084  CALL  TRANSP 

C 

C  -  CALL  'INTE'  TO  SOLVE  SIMULTANEOUS 

C  DIFFERENTIAL  EQUATIONS  - 

0083  CALL  INTE(XEND) 

.0086  IF  (TIME.  OE.  TSTOP )  CO  TO  333 

0087  IF  (SHAPE.  LT.  1.  9)  CO  TO  331 

C 

C  ***«**'»**-»«*****«**«*'»****««4*«*««********««*-»***-»#**«'-»******«* 

C  SKIP  THE  SLICK  HITTINC  THE  COAST  LINE  ROUTINE  " GROUND" 

C  WHEN  SPILL  IS  IN  RIVER. 

C  *************************************************************** 

c 

0088  CALL  OROUND(IH) 

C 

C  ♦♦HUMMMHUUMUMHUMHMHUHUMMHMUMHMMMHMMHMMUMMUHMMUMMMMUHMMMMMMMMMMMfr 

C  IF  IH  >  0.  THE  SLICK  HAS  HIT  THE  COAST  LINE. 

c 

0089  IF  (IH.  OT.  O)  CO  TO  998 

C 

C  <►♦******♦***♦*****♦»********■»■*-*•*•»•*■#«■■*■**-*■*•«►-*-*•*•*♦■**•**♦■**»■**■*■»•**■»* 

C  FROM  HERE  TO  333  IS  A  ROUTINE  THAT  PRINTS  OUT  THAT  AN 

C  INSTANTANEOUS  SLICK  HAS  EVAPORATED  (333)  OR  THE  EVAPORATION 

C  RATE  HAS  INCREASED  TO  EQUAL  THE  DISCHARGE  RATE  FOR  A  CONTINUOUS 

C  SPILL.  THE  CRITERION  IS 

C  TCHECK  >  TIME 

C  AND  IS  DETERMINED  IN  SUBROUTINE  “CHEKMS". 

C  *-*•**•*•*-*•**•*♦*•**  **####***♦#♦********#*#**#**#**##**#**■*■##*#**#**#• 

c 

0090  331  IF  (TCHECK.  CT.  TIME)  00  TO  333 

0091  TEMP  -  T.ME/60. 

0092  IF  (ISTP.EQ.  1)  CO  TO  332 

0093  TMPT-TSP ILL/60. 

0094  WRITE  (1,334)  TEMP, TMPT 

0093  WRITE  (6.354)  TEMP, TMPT 

009*  SPILLM  -  SPILMR  *  TIME 

0097  TIME  -  TSP ILL 

0098  TCHECK  -  TSTOP 

0099  CO  TO  310 

0100  332  CONTINUE 

0101  DELTIM  -  (SPILLM  -  TOTALE  -  TOTALD)  /  <EVAPM*YY(1> 

1  +  DISSOM  *  YY( 1 ) ) 

0102  TOTALE-TOTALE  +  DELTIM  *  EVAPM  *  YY(1) 

0103  TOTALD-TOTALD  +  DELTIM  *  DISSOM  *  YY(1> 

0104  TMASS  -  0, 

0103  TOTALM  -  0. 

0106  YY  (  1  )  -  0. 

0107  YY  ( 2  )•  -  0. 

0108  YY  ( 3 )  *  0. 

0109  RADI  -  0. 


i 
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av 


0110 

0111 

0112 

0113 

0114 

0115 

0116 


0117 

0118 


0119 


0120 


0121 

0122 

0123 

0124 

0125 

0126 

0127 


;/ 


\ 

ft 


353 
C 

C 

C 

r 

c 

c 

c 

354 


355 


RAD2  -  0. 

TIME-  TIME  +  DELTIM 
TEMP  -  TIME  /  60. 

WRITE  <1,355)  TEMP 
WRITE  <6,355)  TEMP 
CO  TO  999 
CONTINUE 

****■****■***#•#•*•*■#•***•***■*■*•*•»■#■*•#■*■#*■*■*•*■*•*•.*•*****•**■*■*■#■*•**■*•*•*■**•»•*•*■**•*< 
BACK  IN  MAIN  LOOP  NOW  —  EXCEPT  FCR  FORMATS  354  AND  355 
********#********hm»**-***-***-*-*-»*-*-***-******-#*-*-»'***-*-*-*-*-*'*'*+*-*'»-**-*h 


-  CALL  'MOVE'  TO  TRACK  SPREADING  - 

CALL  MOVE 
FORMAT  (////IX, 

60H*-*  •»■*■**•»■#**■*  •*•**■*  fr**-***-*-**-***-**-****-*-*-*-*-#****-**-****-*-******-***-^ 

/IX, 1H*, 2X. 

48HTHE  RATE  OF  MASS  LOSS  HAS  INCREASED  UNTIL  IT  IS  ,8X,  1H*/1X, 
1H*> 2X, 34HAPPR0X IMATELY  EQUAL  TO  THE  RATE  OF, 22X,  1H*,  / 1 X,  1H*, 2) 
2SHSP ILLINC  AT  TIME  EQUAL  TO, El 2.  5, 2X, 7HM1NUTES.  10X,  1H*/ 1 X,  1H*. 
2X, 55HTHE  SLICK  SIZE  REMAINS  CONSTANT  FROM  MOW  UNTIL  SPILLING, 
IX, 1H*/1X, 1H*, 2X, I4HST0PS  AT  TIME-, E12.  5, 

25H  MINUTES  AND  THE  PR  INTOUT,  5X,  1H*.' 1 X,  1 H*,  2X, 

49HRESUMES  WHEN  THE  SLICK  SIZE  BEGINS  TO  VARY  AGAIN.  ,7X,  1H*/1X, 
60H**»***-***** 

FORMAT  < /// / 1 X, 

60H**-*** 

/IX,  1H*, 

58HALL  THE  SPILLED  MASS  HAS  BEEN  EVAPORATED  AND < OR)  DISSOLVED, 
1H*/1X. 1H*, 

30HAT  TIME  APPROXIMATELY  EQUAL  TO, E12.  5, 2X, 7HMINUTES, 

7X, 1H*/1X, 
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IF  <TIME.  LT.  TPT)  GO  TO  400 

*♦#*•*******•**+■*********♦*#■»■#-*-**■***+•*•**■#•#■*■**■#•*■*■**-*■**+•*+■*-» -*•*•***■** 
NEXT  6  STATEMENTS  DETERMINE  IF  PRINTOUT  IS  REQUIRED  AND  BREAK 
TIME  INTO  MINUTES  AND  SECONDS  FOR  PRINTOUT 
*+***■»-******-»*■»■*-**♦**#*♦***♦***♦**-*■»•*•*  •*-*■*-*+•**•**■*•****  •**■*•**•*  ■»■»*** 


IJ  -  TIME 
IK  *  TPT 

DIC  -  ABS < TIME  -  FLOAT(IU)) 

IF  (DIC  .  GT.  DELT)  GO  TO  400 
MD  *MOD< IJ,  IK) 

IF  (MD  .  NE.  0)  GO  TO  400 

-  TIME  TO  PRINT  OUT  SOME  RESULTS 

CALL  PR  INTO 


DETERMINE  IF  THICKNESS  OF  THICK  SLICK  IS  LESS  THAN  HMIN. 

IF  SO,  STOP. 

^  *♦•*•*  ■**-*•*■**-*■**■*#•*•**< 
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012<? 
0130 
0 1 3  li 
0132 


0133 

0134 

0133 


0136 

01371 

0138 


0139 

0140 

0141 

0142 


01431 

01441 

01431 
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i 

! 


I 

| 


*00 


300 


1 

2 


C 

c 

c 

c 

c 

310 

998 

C 

C 

c 

c 

c 


997 

1 

2 

3 

4 
3 

999 


IFdSTP.  EQ.  4.  AND.  TIME.  LT.  TSPILL)  00T0  MO 

IF  (YY<3).  LT.  HMIN)  THEN  I 

WRITEd,  300) HMIN.  TIME 
WRITE (6.  300) HMIN. TIME 
FORMAT ( ///5X» 

29HTHE  THICK  SLICK  IS  LESS  THAN  ,  E12.  3,  UH  M  AT  TIME-.  £13.  6. 

8H  SECONDS) 

CO  TO  999 
ELSE 
END  IF 

**#*#■*•(►*•**##■*+ ■**•#«##*#**♦*  *■**#♦*♦•**  ♦♦•******#***•**♦#**■*** 

STOP  IF  TIME  >-  RUN  TIME 

#•*■*■*-*•*♦•**  ***.**-*-4H**.»*-».****^  *♦-***•*•*•*■*■*•*■•■■*•#■*•*■*•*■*  •*■#*■*-*-*•#-*•#*•*■**•**•*-#■»- 

IF  (TIME. CT. TSTOP)  00  TO  999 

00  TO  300 

CONTINUE 

STOP  IF  SLICK  HITS  COASTLINE 

TEMP  -  TIME/60.  0 
WRITE  (1.997)  TEMP 
WRITE  (6.997)  TEMP 
FORMAT ( ///IX. 

60H**  ♦-*♦♦**■**«  ■*-*•*■*-*-********■***■**■***■***■*«*•*♦**-*■***'**'*•*  **-**♦-»*•*** 

/IX. 1H*. 2X. 

32HTHE  SLICK  HAS  HIT  THE  BOUNDARY  AT  TIME  APPROXIMATELY. 

4X»  1H*/1X,  1H*.  2X,  8HEQUAL  TO.  2X,  E12.  3.  7HMINUTES,  27X,  1H*/1X, 

60H******+****-*-tHHHMH4*-(Mt-**  ■*♦****#*■**■*«■*♦***■*••-*<  *-*•*♦***■*-**-***■»■** 

CONTINUE 

RETURN 

END 
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0001 

0002 

0003 

0004 

C005 

0006 

C007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC( 
C  SUBROUTINE  SPTYPE 

C  THIS  SUBROUTINE  SPECIFIES  SPILL  TYPE 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  •  THIS  SUBROUTINE  IS  CALLED  BY  "DMODEL".  IT  INPUTS  THE  CHEHIC/ 

C  PROPERTY  DATA  AND  THE  TYPE  OF  SPILL  (INSTANTANEOUS  OR  C0NTIN1 

C  .***  IT  SETS  UP  THE  FOLLOWING  CODE  *** 

C 

C  STP  -  1.  1.  INSTANTANEOUS  IN  RIVER 

C  STP  -1.2,  INSTANTANEOUS  IN  OPEN  WATER 

C  STP  -  2  1.  CONTINUOUS  IN  RIVER  WITH  NO  CURRENT 

C  STP  -  2.2,  CONTINUOUS  IN  OPEN  WATER  WITH  NO  CURRENT 

C  STP  -  4. 1,  CONTINUOUS  IN  RIVER  WITH  CURRENT 

C  STP  -  4.2,  CONTINUOUS  IN  OPEN  WATER  WITH  CURRENT 

C 

SUBROUTINE  SPTYPE  (PS) 

C0MM0N/STYPE/SP1LLM,  SPILHR.  TSPILL,  WS.  STP.  SPM 

COHHON/CONTOUR /SHAPE, X( 10), Y( 10), XC. YC. IC, IW, ISP, XO, YO 

COHHON/WATER/DENW, VISW, OR 

COMMON/CHEM  I  /DENO.  DC  A,  DCW,  CS,  CMW 

COHHON/ENVOR/PV, VISA, DENA, TDC 

COMMON/ I NTER/COEF, SICWA, SICOA, SICOW, SIG 

COMMON/MOvE/UPEAK ( 10), XLE, XTE, YLE. YTE. DELT. TIME, TSTOP. TCHECK 
C0MM0N/ID/ID1, ID2, IDO 
COMMON/NAME/  NC(2, 20) 

CHARACTER*10  NAME(2),NC 
C 

ID  1-0 
ID2-0 
ID3-0 

WRITE  (6,  10) 

WRITE  (1,  10) 

10  FORMAT  <  1H1//5X,  20H**-***-** **-*«.•***■*♦***/ 

1  5X, 1H*, 4X, 10HSPILL  TYPE, 4X, 1H*/ 

2  5 X,  20H* •  *♦**-#*•****  *•»♦*♦**♦) 

C  -  CHEMICAL  NAME  AND  PROPERTIES  - 

C 

C 

C  *■*  STATEMENTS  FROM  THIS  POINT  TO  ABOUT  STATEMENT  #  49 

C  **  CAN  BE  REPLACED  BY  “CHRIS”  DATA  FILES  IN  MERCED 

C  **  HACS  PROGRAMS 

C 
C 

c  . . . 

C  THE  INPUT  CHEMICAL  PARAMETERS  ARE. 

c 

C  DENO  -  DENSITY.  KQ/CU.  M 

C  CMW  -  MOLECULAR  WEIGHT 

C  DC A  -  DIFFUSION  COEFFICIENT  IN  AIR,  SO.  M/SEC 

C  DCW  -  DIFFUSION  COEFFICIENT  IN  WATER,  SO.  H/SEC 

C  PV  -  VAPOR  PRESSURE,  N/SQ  M 

C  CS  -  SOLUBILITY  LIMIT,  KQ/CU  M 

C  SICOA  -  CHEMICAL-AIR  INTERFACIAL  TENSION,  N/M 


C -63 


.  ,  O  V 


v.vv  vv 


I  *  .  *  v>  »  *>  ' 


c 

r 

S1Q0W  -  CHEMICAL-WATER  INTERFACIAL  TENSION.  N/M 

C 

r 

CALCULATED  CHEMICAL  PARAMETERS  ARE: 

c 

810  -  SPREADING  COEFFICIENT 

c 

-  SIOWA  -  8IOOA  -  SIOOW.  N/M 

c 

CQEF  -  1  -  DENO/DENW 

c 

c 

NOTE  :  COEF  IS  CALLED  DELTA  IN  THE  REPORT. 

0018 

WRITE  <1. 13) 

0019 

13 

FORMAT  </3X, 12HPR0PERTIES  : ) 

0020 

1109 

WRITE  (6.  1110)  <J,  NC(1,J).  NC(2<  J)«  J+l(  NC<1.J*1).  NC<2.  J>1  ) 

1 

J*  1 1  20  >  2 ) 

0021 

1110 

1 

FORMAT < IX,  SOHWE  HAVE  STANDARD  PROPERTIES  FOR  THE  FOLLOW I MO  CH 
SHICALS, /,  10<1X,  12,  2H.  ,  2A10,  2X.  12,  2H.  .  2A10. /)) 

0022 

WR  I TE  <  6,  8) 

0023 

8 

1 

FORMAT <  3X, 23HENTER  THE  NO.  YOU  WANT  OR. /, SX,  14HNE0ATIVE  VALUE 
38H  -  IF  YOU  WANT  TO  INPUT  THE  PROPERTIES. /, 3X, 

2 

1AH  99  ,  23H  -  IF  THE  CHEMICAL  IS  NOT. 

3 

12H  ON  THE  LIST) 

0024 

READ  <3. *,  ERR-1109)  ICS 

0023 

IF  < ICS  . LT.  0)  00  TO  17 

0026 

IF  < ICS  OT.  90)  00  TO  12 

0027 

CALL  CHEMCL  < ICS.  NAME,  PB.  PHI.  DENO.  CS.  CMW.  DCA, 

1 

DCW,  SIOOA.  SIOOW) 

0028 

00  TO  1036 

0029 

12 

WRITE  <6. 13) 

0030 

13 

FORMAT < / 1 X,  33HWHAT  IS  THE  NAME  OF  THE  CHEMICAL?) 

0031 

REAO  (3,  14, ERR-12)  NAME 

0032 

14 

FORMAT  <  2A10 ) 

0033 

17 

WRITE  <6. 18) 

0034 

18 

FORMAT  < 1 X .  29HENTER  ITS  DENSITY  IN  HO/CU  M.  ) 

0033 

READ  <3,*. ERR- 17)  DENO 

0036 

700 

WRITE  <6.  701 ) 

0037 

701 

FORMAT  < 1 X, 4 1HINPUT  ITS  MOLECULAR  WEIOHT  IN  KO/KO-MOLE  ) 

0038 

READ  <3, *,  ERR-700)  CMW 

0039 

22 

WRITE  (6,23) 

0040 

23 

FORMAT < / 1 X,  S6HENTER  DIFFUSION  COEFFICIENT  OF  VAPOR  IN  AIR  IN 

•m/sec  > 

0041 

REAO  <3,  ♦,  ERR-22)  DCA 

0042 

30 

WRITE  (6.  31  ) 

0043 

31 

FORMAT ( /IX, 

•39HENTER  DIFFUSION  COEFFICIENT  OF  LIOUID  IN  MATES  IN  3Q  M/SEC  ) 

0044 

READ  <  3,  *.  ERR-30  )  DCW 

0043 

34 

WRITE  (6,33) 

0046 

33 

FORMAT! /I  X,  43HIS  PV  (VAPOR)  1,  A  NUMBER  OR  2.  A  FORMULA'’) 

0047 

READ  <  3,  •,  ERR-34  )  I 

0040 

00  TO  <36,  38)  I 

0049 

36 

WRITE  <6,  37) 

0030 

37 

FORMAT (/IX, 1 7HENTER  CONSTANT  PV) 

0031 

READ  <3, *, ERR-36)  PV 

0032 

00  TO  39 

0033 

38 

WRITE (6, 138) 

C-64 


0054 


136 


0033 

0036 

0037 

39 

0038 

0039 

40 

0060 

c. 

0061 

60 

0062 

61 

0063 

0064 

1036 

0063 

0066 

0067 

9 

0068 

0069 

0070 

1  1 

0071 

0072 

0073 

16 

0074 

0073 

0076 

C077 

0078 

1013 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

41 

0088 

42 

0089 

44 

0090 

46 

0091 

48 

0092 

0093 

0094 

1033 

0C95 
00°  A 
0097 

0QR9 


FORMAT* /IX,  31HPV  IS  A  FUNCTION  OF  TEMPERATURE/ 

1  3X, 23HPV-10.  0**(A1-B1/<C1+TDC> )/ 

2  6X,  32HENTER  COEFFICIENTS  Al,  B1  AND  Cl) 

READ  <3,*.ERR«38>  A1.B1.C1 

PV  -  10.  0**<A1-B1/(C1+TDC) ) 

CONTINUE 
WRITE  <6,40) 

FORMAT* /I X, 47HINPUT  THE  SOLUBILITY  LIMIT  OF  CHEMICAL  IN  WATER 
1  UH  (KC/CU.  M.  >  > 

READ  <5.  *,  ERR-39)  CS 

WRITE  *6,61) 

FORMAT  * /I X, 44H INPUT  *1)  CHEMICAL/AIR  INTERFACE  TENSION  AND, 

1  /6X , 36H ( 2 )  WATER /CHEMICAL  INTERFACE  TENSION. 

2  /IX, 16HUNIT  :  NGWTON/M  ) 

READ  ( 5, *, ERR»60 )  SI30A. SI  COW 
CONTINUE 

WRITE  ( 1,  9>  PB 
WRITE  (6,  9)  PS 

FORMAT* /5X,  23HSAR0METRIC  PRESSURE  :  . F12.  3. 2X, 8HMILLIBAR.  // ) 

WRITE  (1. 11 >  TDC 
WRITE  *6.11)  TDC 

FORMAT* /3X. 14HTEMPERATURE  :  , r 1 2  3.  2X, 9HDE0REES  C.  //) 

WRITE  <1, 16)  NAME 
WRITE  *6. 16)  NAME 

FORMAT  *//5X, 1BHCHEMICAL  NAME  IS:  ,2A10) 

WRITE  (1,41)  DENO 
WRITE  (6. 41 )  DENO 
WRITE  ( 1, 1013)  CMW 
WRITE  <6, 1013)  CMW 

FORMAT  </3X, 1BHM0LECULAR  WEIGHT  -, F10  3, 2X, 1 OHKO/KO-MOLE ) 

WRITE  (1,42)  DC A 

WRITE  *6,42)  DC A 

WRITE  ( 1, 44)  DCW 

WRITE  (6, 44)  DCW 

WRITE  ( 1, 46)  PV 

WRITE  (6, 46)  PV 

WRITE  ( 1, 48)  CS 

WRITE  (6,  48)  CS 

FORMAT  </SX. 23MCHEMICAL  DENSITY  «  , F 1 2.  2. 2X ,  BHKC/CU  M 

FORMAT  */5X, 25HDIFFUSI0N  COEFF  (AIR)  -,E12  5,2X,9HSQ  M  /5EC 
FOPMAT  < /3X, 23HDIFFUSJ0N  COEFF  (WATER)  -, El 2  5, 2X, 9HSQ  M  /SEC 
FORMAT  ( /3X,  23-ICHEMICAL  VAPOR  PRESSURE  -,F12.  2,  2X, 

1  12HNEUTQN/SQ  M  ) 

FORMAT  (/3X,  23MSOLUBILITY  IN  ,  (A TER  «,  F12.  2.  2X,  8HKC/CU  M.  > 

WRITE  (1,1033)  SICOA.SICOW 
WRITE  (6,1033)  SICOA.SICOW 

FORMAT  ( / 3 X ,  33HTHE  INTERFACE  TENSION  WRT  AIR  IS  ,E10  3, 

1  2X.  vKNEWTON/M  ,  /5X. 

2  33HTHE  INTERFACE  TENSION  WRT  WATER  IS  , E10  3, 2X, 

3  9HNEWT0N/M  ) 

SIC  -  S I GWA— S I  COW-SI COA 
WRITE  ( 1, 40)  SIC 
WRITE  '6, OR)  SIC 

FORMAT ; /3X,  29HTHE  SPREADING  COEFFICIENT  IS  , E 1 0.  5. 2X , 9HNEWT0N 
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0099 


1 


0100 


o;oi 

0102 

0103 


0104 

OIOS 

0106 

0107 

0106 

0109 

0110 

0111 

0112 

0113 

0114 

0113 

0116 
01 17 
0116 

0119 

0120 

0121 


0122 

0123 

0124 

0123 

0126 

0127 

0128 

0129 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

so 

SI 


c 

c 

c 

c 

100 

101 
102 
103 


104 
C 

105 


120 

C 


C 

200 

c 

c 

c 

c 


201 

204 

205 


206 


) 

COEF-1.  O-DENO/DONW 

m  ♦■»■»■»■»■>■»•««< MH» 

THE  SPILL  PARAMETERS  ARE: 

♦*■*■**■***■**#■**#*■#■*■#**■*-•#♦■*■*  ■#****■**■*♦♦  *•*•*■*■*■**■*■•-*♦*■*■* 

SPILLM  -  TOTAL  MASS  OF  INSTANTANEOUS  SPILL.  KC 
SPILLHR  -  DISCHARGE  RATE  OF  CONTINUOUS  SPILL.  KC/SEC 
TSPILL  -  TOTAL  DISCHARGE  TIME.  SEC 

•  «••««*«•*«**«  *■*■#*■*•**■«►•**■#♦*♦*♦•*♦•*••■***#••♦•***#■*•*-»•*■*■* ■*♦•*« 


WRITE  (6, 31 > 

FORMAT* /IX.  47WIS  SPILL  1.  IN8TANTANE0US  OR  2.  CONTINUOUS 
READ  <3. *,  ERR-30)  I TYPE 
00  TO  < 100, 200)  ITYPE 


INSTANTANEOUS  SPILL 


CONTINUE 
WRITE  (1,101) 

FORMAT  (//SX.30H1.  THE  SPILL  IS  INSTANTANEOUS.  ) 

WRITE  (6. 103) 

FORMAT  <7 IX,  44H INPUT  THE  TOTAL  SPILLED  VOLUME  (CUBIC  METER)) 
READ  (S, *, ERR- 102)  TEM 
SPILLM  -  DENO  *  TEM 
WRITE  (1,104)  SPILLM 

FORMAT  (/SX.24H2.  TOTAL  MASS  OF  SPILL  E12.  3.  2X»  3HK0  ) 

CONTINUE 
I  -  SHAPE 

IF  ( I.  EO.  1  )  GO  TO  120 

-  SPILL  18  IN  OPEN  WATER  - 

STP  -  1.2 
00  TO  299 
CONTINUE 

-  SPILL  IS  IN  RIVER  OR  CHANNEL  - 

STP  -1.1 
GO  TO  299 

CONTINUE 


CONTINUOUS  SPILL 


WR  I TE  (  1 ,  20 1  ) 

FORMAT  (//SX.27H1.  THE  SPILL  IS  CONTINUOUS.  ) 

WRITE  (6. 20S) 

FORMAT* / 1 X.  39HINPUT  THE  RATE  OF  DISCHARGE  (CU  M.  /SEC)) 
READ  ! 3, *, ERR-204 )  TEM 
SPILMR  -  DENO  *  TEM 
WRITE  ( 1, 206)  SPILMR 

FORMAT  (/SX.29H2,  THE  MASS  DISCHARGE  RATE  -  . F0.  3, 2X. 
7HK0/SEC  ) 


•/  « 
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0130 

207 

WRITE  (6,208) 

0131 

208 

FORMAT < /I X,  44HINPUT  THE  TOTAL  DURATION  OF  SPILL  IN  MINUTES) 

0132 

READ  i<  5.  ♦  ,  ERR-207)  TSPILL 

0133 

WRITE  (1,210)  TSPILL 

0134 

210 

FORMAT  (/5X.29H3.  TOTAL  DURATION  OF  SPILL  -  .  E12.  5,  4HMIN.  ) 

0135 

TSPILL-TSPILL*60. 

0136 

220 

CONTINUE 

0137 

I -SHAPE 

0138 

222 

IF  ( I.  EQ  1 )  CO  TO  250 

C 

-  SPILL  MUST  BE  IN  OPEN  WATER  - 

0139 

224 

IF  <  IC.  ME  0  OR  IW  NE.  0)  CO  CO  240 

C 

-  NO  CURRENT  - 

0140 

STP  -22 

0141 

CO  TO  299 

0142 

240 

CONTINUE 

C 

- THERE  IS  CURRENT  - 

0143 

STP  ■  4.2 

0144 

CO  TO  299 

0145 

250 

CONTINUE 

C 

-  SPILL  IS  IN  RIVER  OR  CHANNEL  - 

0146 

252 

IF  (IC.  NE.  0  OR.  IW.  NE.  0)  CO  TO  260 

C 

-  NO  CURRENT  - 

0147 

STP  -i  2.  1 

0148 

CO  TO:  299 

0149 

260 

CONTINUE 

C 

-  THERE  IS  CURRENT  - 

0150 

STP  -i  4.  1 

0151 

299 

RETURN 

0152 

END 

C  -  6? 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  SWITCH  C 

C  THIS  SUBROUTINE  IS  USED  TO  SWITCH  THE  CONTINUOUS  C 

C  MODEL  TO  THE  PROPER  INSTANTANEOUS  MODEL  AFTER  C 

C  THE  SPILL  STOPS .  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  “SPREAD"  IT  CHANCES  A  CONTINUOUS 

C  SPILL  TO  AN  INSTANTANEOUS  SPILL  AFTER  THE  DISCHARGE  STOPS,  AND 

C  COMPUTES  THE  CENTER  OF  THE  NEW  INSTANTANEOUS  SPILL  SLICK 


•  •  • 

*• 

OOOl 

<!* 

0002 

0003 

A 

0004 

m 

■ 

0009 

0006 

0007 

>V 
«  "  . 

0006 

•  •"« 

0009 

S': 

0010 

V; 

£ 

0011 

0012 

0013 

0014 

SUBROUTINE  SWITCH 

(  UMMON/STYPE/SPILLM,  SPILMR,  TSPILL,  US,  STP,  SPM 
C  JMMON/SIZE/R,  D.  WW.  LI,  L2,  H,  RO 

COMMON /CONTOUR /SHAPE.  XC  10),  Y(  10),  XC.  YC,  IC,  IW,  ISP.  XO.  YO 
COMMON /RUNOE/YY ( 3 ) .  C  (24 ) ,  WO,  30) 

COMMON/CONSTAT/UC,  VW.  UTBAR-  UO,  01,  WT,  ALPH,  THETA1 
COMMON/CURRENT/UBAR  ( 10  > ,  DMCVE.  UTOT,  UTX.  UTY,  UREL 
COMMON/MCVE/UPEAK <  10),  XLE,  XTE,  YLE.  YTE,  DELT.  TIME,  TSTOP.  TCHECK 
COMMON/MLOSS/EVAPM, OISSOM 

COMMON/SENSE/EVA <40.  10). DISC40.  10).THK<40.  10). TIN<40.  10), 
PIP<40),  TPT 

COMMON/SPREAD/TI I, ATK, HTK. ATN, HTN.  HMIN.  INDEX,  I FLAG 
COMMON/ CK/C 10,  C20.  Cll.  C21.  C12.  C22.  K10.  K20.  Kll.  K21, 

K12.  K22 

REAL  K10.K20,  Kll,  K21.K12.K22 

I STP  -  STP 


1 3 TP  «  3:  CONTINUOUS  SPILL  WITH  NO  CURRENT > 
I STP  -  4:  CONTINUOUS  SPILL  WITH  CURRENT 


IF  (ISTP.EO.  4)  00  TO  100 
8PILLM  •  SPILMR  *  TSPILL 
IF  (STP.  EO.  2.  1)  STP-1.  I 
IF  <STP.  EQ.  2.  2)  STP-1.  2 
00  TO  999 

CONTINUE 

IF  < STP.  EO.  4  2)  90  TO  130 
SPILLM  -  SPILMR  *  TSPILL 
XC— YY ( 1 >/<2.  *WW> 


CENTER  OF  INSTANTANEOUS  SLICK 
SLICK  IF  SLICK  IS  IN  RIVER. 


CENTER  OF  CONTINUOUS  SPILL 


STP  -1.1 
CO  TO  9<S9 
CONTINUE 

IF  <SPM.  OT.  0.  0)  GO  TO  200 
STP  -1,2 


C  -  68 


V  **w 


£ 

0029 

c 

GO  TO  999 

A 

*  ■ 

0030 

L 

200 

CONTINUE 

$ 

• 

0031 

•  TEMPI  -  UTBAR  #  TSPILL 

v: 

0032 

TEMP2  -  3.  0  *  SORT < YY( 1 ) 

0033 

XC  — (2.  /3.  )*( XLE-XO) 

V. 

0034 

YC-(2.  /3.  ) * ( YLE-YO ) 

CENTER  OF  INSTANTANEOUS  SLICK  -  CENTROID  OF  TRIANGULAR 
CONTINUOUS  SPILL  SLICK  IN  OPEN  WATER. 


IF  (TEMPI. LE. TEMP2)  DO  TO  230 
SPILLM  -  SPILMR  *  TSPILL 
STP  »  1.  2 
CO  TO  999 

CONTINUE 

•**««-»HH»#**««***#**'»***«-»***«*«*^*******************-»H»*-»***-»**** 

NEED  TO  LET  SPILL  SPREAD  LIKE  AN  INSTANTANEOUS  SPILL  IN  A 
RIVE2  UNTIL  IT  SPREADS  ENOUGH  SO  THAT  3*SQRT(THICK  SLICK  AREA) 

IS  GREATER  THAN  LENGTH  OF  SLICK. 

•«HMHMHM4*«4**«*4«4'»*44******44****«*HIHt4**+«*44*'»4****«**4**1lt4t4 

SPILLM  -  SPILMR  *  TSPILL 
STP  «  1.  1 
CALL  TRANSP 
CALL  INTE(XEND) 

CALL  MOVE 
IJ  -  TIME 
IK  -  TPT 
MD-MOD< IJ,  IK) 

DIC -A8S  <  T I ME-FLQAT ( I J ) > 

IF < QIC .  QT.  CELT)  GOTO  300 
IF  <MD.  NE.  0)  CO  TO  300 
CALL  PRINTO 

TEMPI  -  UTBAR  *  TSPILL 
TEMP 2  -  3. 0  *  SORT ( YY ( 1 ) ) 

IFtTIME. OT. TSTOP )  GOTO  999 
IF  (TEMPI. LE. TEMP2)  GO  TO  273 
STP  -1.2 

IF  (TIME. OT.  TSTOP )  GO  TO  999 
IF  <YY(3>.  LT.  HMIN)  CO  TO  999 

CONTINUE 

RETURN 

END 


C-69 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


C  SUBROUTINE  TRANSP 

C  COMPUTING  THE  SURFACE  TRANSPORT  VELOCITY 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  CALLED  BY  ‘SPREAD”  AND  INITIAL  CONDITION 

C  SUBROUTINES  "INT12A"  AND  "INIT4A".  IT  COMPUTES  THE  SURFACE 

C  TRANSPORT  VELOCITY  OF  THE  SLICK  AND  THE  RELATIVE  WIND  OVER 

C  THE  SLICK  AT  THE  DESIRED  TIME. 

C 

C  **  UTX.UTY  -  COMPONENTS  OF  TRANSPORT  VELOCITY,  M/SEC 

C  **  UTOT  ■  TOTAL  TRANSPORT  VELOCITY.  M/SEC 

C  **  UREL  -  RELATIVE  WIND.  M/SEC 

C 

OOOl  SUBROUTINE  TRANSP 

0002  COMMON/MOVE/UPEAK < 10). XLE. XTE.  YLE.  YTE.  DELT.  TIME.  TSTOP, TCHECK 

0003  COMMON/CONTOUR /SHAPE. X< 10). M 10).  XC.  YC.  IC.  IW.  ISP.  XO. YO 

0004  COMMON/TRANSIT/UX< 10,  10).  UY(10. 10).  VWX ( 10), 

1  VWY< 10), THETA(IO).  TI < 10),  ID.  IT,  IV, 

2  XU<10), YU(10),TT(10) 

0005  COMMON/CONSTAT/UC,  VW, UTBAR, UO.  Ul.  WT,  ALPH.  THETA 1 

0006  COMMON/CURRENT/UBAR < 10), DMOVE. UTOT,  UTX,  UTY,  UREL 

0007  CQMMON/STYPE/SP ILLM, SPILMR, TSPILL,  WS.  STP,  SPM 

C 
C 

0008  J  -  SHAPE 

0009  I STP  -  STP 

0010  LT  -  0 

0011  LL  -  0 

0012  IC1  •  IC  ♦  1 

0013  IF  <U.  EQ.  1)  CO  TO  100 

C 

CC  -  IN  OPEN  WATER  - 

C 

0014  00  TO  <9,9,10,20.30)  IC1 

C  CONSTANT  CURRENT  OR  NO  CURRENT 

0015  9  UU1  -  UX< 1, 1 > 

0016  UU2  -  UY (1,1) 

0017  GO  TO  55 

C  CURRENT  IS  FUNCTON  OF  LOCATION  ONLY 

0018  10  LT  -  1 

0019  00  TO  30 

C  CURRENT  IS  FUNCTION  OF  TIME  ONLY 

0020  20  LL  -  1 

0021  00  TO  40 

C 

0022  30  CONTINUE 

C 

c  ***********-***.****#.*#.»**-***#*#**'**-****'**-#-*-#***-*-*-**-**-#*-*-******1 

C  STATEMENTS  FROM  HERE  TO  3S  DETERMINE  BOX  OR  SLICE  IN  WHICH 

C  LEADING  EDOE  OF  A  CONTINUOUS  SPILL  SLICK  LIES  OR  IN  WHICH 

C  THE  CENTER  OF  AN  INSTANTANEOUS  SPILL  SLICK  LIES. 

C  **  LL  -  BOX  OR  SLICE  NO.  (AT  END  OF  STATEMENTS). 

C  **•*•*•*■*■*•*■*■#**-*-*■*.#■*■#.*•*•*■**#•*-»•*•*■*-*■*•*•*-*•*•*■*•*■**■**■»•**■*■**■*■**■*-*  «***♦««< 

c 
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0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 


0049 

0050 

0051 

0052 


0053 
0054 
0055 
CO  5  6 
0057 
0058 
0059 
0060 
0061 
0062 


0063 


ID-3 

IF(U.  CE.  3)  ID-9 
DO  35  LL— 1j ID 

IF(  ISTP.  EQ.  2.  OR.  ISTP.  EQ.  4)  THEN 
XL  -  XLE 
YL  -  YLE 
ELSE 

XL  -  XC 
YL  -  YC 
ENDIF 

IF  <  XL. CE.  XU(LL).  AND.  XL. LE.  XU(LL+1 > >  LL 1 -LL 
IF <  J.  CE.  3)  GOTO  35 

IF  (  YL.  CE.  YU  <  LL ) .  AND.  YL. LT.  YU1LL+1 ) >  LL2-LL 
35  CONTINUE 

IF(J. CE. 3)  LL-LL1 
IF < U.  CE.  3)  GOTO  38 
IF < LL2.  EQ.  1  )  LL-LL1 
IF  ( LL2.  EQ.  2)  LL-LL1+3 
IF(LL2.  EQ.  3)  LL-LL1+6 

38  CONTINUE 

39  IF  (LT.  EQ.  1 )  CO  TO  50 

40  DO  45  LT- 1 , 10 

IF  (TIME.  CT.  TI (LT) )  00  TO  45 
CO  TO  49 
45  CONTINUE 

49  CONTINUE 
C 

C  ■***#■*•*-*■****■***■**■*■*****•••***-***-»**■*****■*■***-***■»****+*****■»•*-»■*■*•»•**• 

C  IF  CURRENT  IS  ALSO  A  FUNCTION  OF  TIME-  INTERPOLATE  IN  THE  BOX 

C  OR  SLICE  TO  FIND  VALUE  AT  DESIRED  TIME. 

C  *************************#**■**•*•**■*•*♦*•**■*•***•#*■***■*•*■#-*•*■»■*■*■*-*■**•*■#*■ 

c 

UU1  -  UX(LL-  LT-1 >  +  ( UX ( LL- LT ) -UX ( LL- LT-1 ) ) * 

1  (TIME-TI (LT-1 > )/(TI (LT)-TI (LT-1 ) ) 

UU2  -  UY(LL.  LT-1 >  +  <UY(LL, LT)-UY(LL. LT-1 > )* 

1  (TIME-TI (LT-1 ) >/<TI (LT)-TI (LT-1 ) ) 

CO  TO  55 

50  CONTINUE 
C 

C  **  UU1-UU2  -  CURRENTS  IN  BOX  OR  SLICE  AT  DESIRED  TIME  ** 

C 

UU1  -  UX ( LL-  LT) 

UU2  -  UY ( LL, LT  > 

55  IF  <  IW.  CT.  1  )  CO  TO  70 

60  W1  -  VWX ( 1 ) 

W2  -  VWY (  1  ) 

CO  TO  90 

70  DO  75  I- 1,  10 

IF  (TIME. CT. TT( I) )  CO  TO  75 
CO  TO  79 
75  CONTINUE 

C 

C  **  IF  WIND  -  F ( TIME) .  INTERPOLATE  TO  FIND  WIND  AT  DESIRED  TIME 

C 

79  W1  -  VWX ( I— 1 ) + ( VWX ( I ) -VWX ( I - 1 ) ) * ( TIME-TT ( I - 1 ) ) / 


C  -  7 1 


y- r  ;r-  W-M 


•  «  w~.  y,  ir;  «r,  y,  vj^  »-<y%_yi  v%_  «r~^  * 


*\**  ■nr*V‘*XS  -  ~r*  T-rv^^- 


0064 

0065 


0066 

0067 

0068 

0069 

0070 


0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 


0082 

0083 


0084 

0085 

0086 


1  <  TT  < I > -TT  < I - 1 ) ) 

U2  -  VWY < I  — 1 )  +  < VWY ( I )— VWY ( 1-1 ) )*( TIME— TT < I— 1 ) ) / 

1  <TT  < I )— TT < I  — 1 ) ) 

90  CONTINUE 

C 

C  - 

UTX  -  UU1  ♦  0.  035*W1 
UTY  -  UU2  ♦  0.  035*W2 

UREL  -  SORT ( < UTX-W1 ) **2.  ♦  <UTY-W2)**2.  ) 

UTOT  -  SORT  <UTX**2+UTY#*2) 

00  TO  999 
C 

C  -  IN  RIVER  OR  CHANNEL - 

100  CONTINUE 

IF  < IC.  LE.  1)  00  TO  120 

UC  -  UO  +  U1*SIN<6.  28318/WT*<TIME+ALPH> > 

120  IF  ( IW.  LE.  1 )  THEN 

VW  X  X  «VW*C  OS  <  THETA 1 ) 

GOTO  140 
ELSE 
END  IF 

DO  130  1-1,  10 

IF  (TIME.  LT.  TT<  I )  >  CO  TO  135 
130  CONTINUE 

C 

C  **  IF  WIND  -  F(TIME),  INTERPOLATE  TO  FIND  WIND  AT  DESIRED  TIf 

C 

135  VWXX  -  VWX(I-1>+(VWX(I)-VWX(I-1))*(TIME-TT(I-1>)/ 

1  (TT(I)-TT(I-l)) 

VWYY  -  VWY < I  —  l ) ♦ ( VWY ( I )— VWY ( I  — 1 ) ) *( TIME— TT ( I  — 1 )  )  / 

1  <  TT  <  I )  — TT  <  I  - 1  )  ) 

C 

C  - 

140  UTX  »  UC  +  0.  035*VWXX 

UREL  •  SQRT( (UTX-VWXX >**2.  + ( VWYY ) **2.  ) 

UTOT  -  UTX 


0087 

0088 


C 

999 


RETURN 

END 
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000*7 

0010 
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0018 
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0021 

0022 


0023 

0024 

0025 
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C  SUBROUTINE  UERTST 

C  PRINTS  A  MESSAGE  TO  INDICATE  AN  ERROR  CONDITION  IN 

C  THE  RUNCE-KUTTA  ROUTINE  "RUNKUT". 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  THIS  SUBROUTINE  IS  PART  OF  THE  RUNCE-KUTTA  INTEGRATION 

C  ROUTINE  "RUNKUT". 

C 

SUBROUTINE  UERTST( IER. NAME) 

C 

C  SPECIFICATIONS  FOR  ARGUMENTS 

C 

INTEGER  IER 
DOUBLE  PRECISION  NAME 
DOUBLE  PRECISION  NAM5ET, NAMEQ 
DATA  NAMSET /6HUERSET / 

DATA  NAMEG/6H  / 

DATA  LEVEL/4/,  IEQDF/O/,  IEG/1H-/ 

IF< IER.  CT.  999)  GOTO  25 
IF ( IER.  LT.  -32)  GOTO  55 
IF( IER  LE.  128)  GOTO  5 
IF(LEVEL.  LT.  1)  GOTO  30 
CALL  UCETIO < 1 , NIN, IOUNIT ) 

IF ( IEQDF.  EQ.  1 )  WRITE ( IOUNIT, 35)  IER, NAMEQ,  IEG- NAME 
IF ( IEQDF.  EG. 0)  WR ITE < IOUNIT, 35 )  IER, NAME 
GOTO  30 

5  IF  <IER.  LE.  64)  GOTO  10 

IF < LEVEL.  LT.  2)  GOTO  30 
C 

C  PRINT  WARNING  MESSAOE  WITH  FIX 

C 

CALL  U0ETI0<1,  NIN,  IOUNIT) 

IF( IEQDF.  EQ.  1 )  WR ITE ( IOUNI T, 40 )  IER, NAMEQ,  IEG, NAME 
IF< IEQDF.  EG.  0)  WR ITE ( IOUNIT, 40 )  IER, NAME 
GOTO  30 

10  IF< IER.  LE.  32)  GOTO  15 

C 

C  PRINT  WARNING  MESSAGE 

C 

IFCLEVEL.  LT.  3)  GOTO  30 
CALL  UCETIOC 1.  NIN,  IOUNIT) 

IF< IEQDF.  EQ.  1 )  WR ITE ( I OUNIT, 45 )  IER- NAMEQ,  IEG, NAME 
IF ( IEQDF.  EG.  0)  WR ITE ( IOUNIT, 45 )  IER, NAME 
GOTO  30 

15  CONTINUE 

C 

CC  CHECK  FOR  UERSET  CALL 

C 

IF  (NAME.  NE.  NAMSET)  GOTO  25 

LEVOLD-LEVEL 

LEVEL- IER 

IER-LEVOLD 

IF ( LEVEL.  LT.  0)  LEVEL-4 
IF (LEVEL.  CT.  4)  LEVEL-4 
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4 


0039  GOTO  30 

0034  23  CONTINUE 

0037  IF (LEVEL.  LT.  4)  QOTO  30 

C 

C  PRINT  MESSAGE  FOR  UNDEFINED 

C 

0038  CALL  UCETIO( 1.  NIN,  IOUNIT) 

0039  IF< IEQDF. EQ. 1 >  WR ITE( IOUNIT, 50)  IER. NAMED. I EG. NAME 

0040  IFUEQDF.  EG.  0)  WRITE( IOUNIT, 30)  IER,  NAME 

0041  30  IEGDF-0 

0042  RETURN 

0043  33  FORMAT < 19H  ***  TERMINAL  ERROR,  10X, 7H( IER  -  .13, 

*  •  13H)  FROM  ROUTINE  , 1A4. A1.1A4) 

0044  40  FORMAT < 34H  *♦*  WARNINO  WITH  FIX  ERROR  (IER  -  .13, 

1  13H)  FROM  ROUTINE  , 1A4, A1.1A4) 

0043  43  FORMAT ( 1SH  •*+  WARNINO  ERROR.  UX.  7H(  IER  -  ,13. 

*  13H)  FROM  ROUTINE  ,  1A6. Al,  1A6) 

0044  30  FORMAT ( 20H  ***  UNDEFINED  ERROR.  9X,  7H ( IER  -  ,15. 

*  13H)  FROM  ROUTINE  ,1A4.A1,1A4> 

0047  33  IEGDF-1 

0048  60  NAMEG-NAME 

0049  43  RETURN 

0030  END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccceccccccccccccccccccc 

C  SUBROUTINE  UCETIO 

C  RETRIEVES  CURRENT  VALUS  AND  SETS  NEW  VALUES  FDR  INPUT 

C  AND  OUTPUT  UNIT  IDENTIFIERS. 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  IS  PART  OF  THE  RUNCE-KUTTA  NUMERICAL  INTEGRATION 

C  ROUTINE  "RUNKUT". 

C 

0001  SUBROUTINE  UGSTIOC IOPT, NIN. NOUT) 

0002  INTEGER  IGFT, NIN, NOUT 

0003  INTEGER  NIND,  NOUTD 

0004  DATA  N7ND/1/, NOUTD/2/ 

0005  IF< IOPT. EQ.  3)  GOTO  10 

000'S  IF(  IOPT.  EQ.  2)  GOTO  5 

0007  IF< IOPT. EQ.  1 )  GOTO  9005 

0008  NIN-NIND 

0009  NOUT-NOUTD 

0010  GOTO  9005 

0011  5  NIND-NIN 

0012  GOTO  9005 

0013  10  NOUTD-NOUT 

0014  9005  RETURN 

0015  END 
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0001 

0002 

0002 

0004 

0003 


0006 

0007 

0008 

0009 

0010 


0011 

0012 

0013 


001  ^ 
0013 

0016 

0017 

0018 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccq 

C  SUBROUT I NE  UTPEA*  I 

C  THIS  SUBROUTINE  IS  DESIGNED  TO  DETERMINE  THE  MAXIMUM 

C  TRANSPORT  VELOCITY  (WHEN  IT  IS  A  FUNCTION  OF  TIplE) 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccceccccccccccccccccj 

C  I 

C  THIS  SUBROUTINE  IS  CALLED  BY  "SPREAD".  IT  CALCULATES  THE 

C  VELOCITY  USED  IN  THE  SPREADINC  MODELS*  UC  +  0.033  *  VW  (COMPONEN 

C  AND  FINDS  THE  MAXIMUM  OF  IT  FOR  LATER  USE 

C  ♦♦  VARIABLE  NAME:  ** 

C  UTPEAK(I)  -  MAXIMUM  VALUE  OVER  TIME  OF  UC  +  0.035  *VW  (COMPONENT) 

C  IN  EACH  OF  THE  9  SLICES  OR  BOXES. 

C  FOR  A  RIVER.  1-1. 

C 

SUBROUTINE  UTPEAK 

COMMON/STYPE/SP ILLM. SPILMR. TSPILL.  WS.  STP.  SPM 
COMMON/CONTOUR /SHAPE.  X(10),  Y<10).  XC,  YC.  IC.  IW.  ISP.  XO.  YO 
COMMON/CONSTAT/UC. VW. UTBAR. UO. Ul,  WT, ALPH. THETA1 1 
COMMON/TRANSIT/UX ( 10.  10). UY( 10.  10). VWX< 10), 

1  VWY(IO), THETA(IO).  TI(IO),  ID. IT,  IV 

2  XU(10), YU<10). TT(10) 

COMMON/MOVE/UPEAK ( 10) , XLE. XTE, YLE,  YTE,  DELT,  TIME 
COMMON/SPREAD/TI I , ATK. HTK, ATN.  HTN.  HMIN.  INDEX,  IFLAC 
I  -  STP 
J-SHAPE 

IF  <  J.  NE.  1 )  00  TO  100 
C 

C  - 

c 

C  - 

c 


IN  RIVER  OR  CHANNEL 


TSTOP.  TCHEC* 


UPEAK(1 )-0. 0 

IF  (IC.  EQ.  2.  AND.  IW.  LE.  1) 

00  TO  30 


00  TO  20 


C 

C  *•****♦♦♦■*«.**■*■*'•*•**-*•*#*******♦***♦♦***•*•*■*■*•*♦■*■****•*•**■*-«*■*•*■**•*♦*♦•*■« 

C  CALCULATE  UPEAK(l)  -  PEAK  VALUE  OF  UC  +  0.035  *  VW 

C  FOR  A  TID*L  RIVER  j 

C  *-*  »***•*•*•***  ***«  •*■#■**■*•*****■*■#•#•#■#•*■*•*■#*■*♦♦•»-*'*■*'***■*********•*■********< 

c 

20  UPEAK(l)-(U0+Ul)+0.  033*VW*C0S c THETA 1 ) 

00  TO  999  ! 

C 

30  CONTINUE 

DO  30  1-1.  10 

IF  (  IC.  EQ.  1  )  00  TO  43 


C  f 

C  *•****•*•*■*■**■#■#■**•*■****♦•*■**•*■*•#,}.*■*•**■*•*-*■*■*•*-»*■*-*•*•**•*******■****•***•*-#■**** 

C  CALCULATE  AVERAGE  VALUE  OF  VALUE  OF  TIDAL  CURRENT  FROM 

C  T  «  0  TO  T  »  TT(1)  AND  ADD  WIND  COMPONENT  TO  COMPUTE 

C  DUMMY  VARIABLE  UTOTAL.  THEN  SET  UPEAK(l)  EQUAL  I  TO  MAXIMUM 

C  UTOTAL. 

C  ***********+**♦***■********#********♦*******>*****•***•*■*******•*-*** 

C  • 

UC»U0+Ul*WT/<2.  0*3.  1 4 1 59 ) * ( -COS ( 6.  2331 8/WT*( TT ( I ) +ALPH ) )  + 

i 
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0019 


/  / 


1 


COS (6. 28318*ALPH/WT> ) 


0020 

0021 

43 

UTOTAL-UC+O.  033*VWX  < I ) •THETA ( I ) 

IF ( UTOTAL.  QT.  UPEAK < 1 ) )  UPEAK ( 1 J-UTOTAL 

0022 

30 

CONTINUE 

- 

0023 

CO  TO  999 

IN  OPEN  WATER 


0024 

100 

CONTINUE 

0025 

DO 

103  1-1,9 

0026 

UPEAK  (  I  )  -  0,  0 

0027 

103 

CONTINUE 

0028 

DO 

200  1-1,9 

0029 

DO 

180  U-l, 10 

0030 

IF 

(  IW.  EO.  2)  CO  TO 

120 

0031 

W1 

-  VWX< 1  ) 

0032 

W2 

-  VWY  < 1  ) 

0033 

00 

TO  140 

0034 

120 

DO 

123  K-l, 10 

0033 

IF 

(TI ! J) . EO  TT(K) ) 

00 

0036 

IF 

(TI ( J). LE  TT ( K ) > 

CO 

0037 

123 

CONTINUE 

INTERPOLATE  TO  FIND  WIND  SPEED  AT  TIME  TI < I >  CORRESPONDING  T 
CURRENT  INPUT  <  TT ( I )  MAY  NOT  BE  SAME  AS  Till)  ) 


W1  -  VWX  (K-l >  ♦  (  VWX ( K ) -VWX ( K-l > ) * ( T I ( J ) -TT ( K-l ) ) / 
1  ( TT  (  K ) -TT ( K-l ) ) 

W2  -  VWY  (  K-  1  >•*■  <  VWY  <  K  )  -VWY  (  K-l  ) >* ( T I <  J)  -TT  (  K—  1  )  )  / 
I  (TT(K)-TT(K-l > > 

CO  TO  140 
W1  -  VWX  <  K ) 

W2  -  VWY(K) 

UU1  -  UX( I, U>*0  03S*W1 
UU2  -  UY< I,  U>*0  033-W2 
UTOT  •  SORT ( UU 1 **2+UU2**2 ) 


CALCULATE  MAXIMUM  VALUE  OF  UPEAK  FOR  EACH  OF  THE  NINE  BOXES 
OR  SLICES  FOR  THE  WHOLE  TIME  DURATION 


IF  (UTOT.  CT.  UPEAK  (  I  )  ) 

CONTINUE 

CONTINUE 

RETURN 

END 


UPEAK  <  I). 
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0002 

0003 

0004 


0005 

0006 

0007 

0008 

0009 


0010 


001 1 
0012 
0013 
0014 
0015 
0016 
0017 
0018 


0019 

0020 

0021 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI 
SUBROUTINE  WATER  (TA,  RHO.  VMU) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCi 
C  THIS  SUBROUTINE  IS  USED  TO  CALCULATE  WATER  PROPERTIES. 

C  IT  IS  CALLED  BY  PROORAM  “DMODEL". 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCi 

C 

C  REF:  ROBERT  L.  LOWELL  UR.  AND  ELI  RESHOTKO,  "NUMERICAL 

C  STUDY  OF  THE  STABILITY  OF  A  HEATED  WATER  BOUNDARY 

C  LAYER".  CASE  WESTERN  RESERVE  UNIVERSITY. 

C  FTAS  TA  73-93  (1974) 

C 

C  T  -  ABSOLUTE  WATER  TEMPERATURE  (DEO  K)i  SAME  AS  AIR 

C  CP  -  SPECIFIC  HEAT  OF  WATER.  JOULE/OR-DEC  v 

C  RHO  -  DENSITY  OF  WATER.  KO/CU  M 

C  VMU  -  KINEMATIC  VISCOSITY  OF  WATER,  SO.  M/SEC 

C 

C  CALCULATE  SPECIFIC  HEAT  OF  WATER 

C 

T  -  TA  >  273  15 

CP  -  2.  13974-9  68137E-3*T+2.  68536E-5*T**2-2.  42139E-8*T**3 
CP  -  CP  ♦  4  1858 
C 

C  CALCULATE  DENSITY  OF  WATER 

C 

RHO  -l.  -< (TA-3  9863>**2*(TA+288.  9414) )/( 506929  2*(TA+68  12963 

IF  (TA  .  Ed.  0  )  00  TO  5 

RHO  •  RHO  0  011445  *  EXP(-374.  3/TA) 

5  CONTINUE 

RHO  -  RHO  •*  0.  999973 

C 

C  CONVERT  FROM  UNIT  OF  CM/CU.  CM  TO  KO  /  CU.  M. 

C 

RHO  -  RHO  *  1000.  0 
C 

C  CALCULATE  VISCOSITY  OF  WATER 

C 

TD  »  TA  -  20 

IF  (TA  .  LT  20  )  00  TO  10 

RLOOMU  -  -(  1.  37023* TD-»8.  36E-4*TD*-#2 )  /  (  109.  -t-TA ) 

VMU  -  0  01002  *  (10.  RLOOMU) 

00  TO  20 

10  RLOOMU  -  1301.  /  (998.333  +  0.  1853*TD+0.  00S85*TD*-*2>-3.  30233 

VMU  -  10.  **  RLOOMU 

20  CONTINUE 

C 

C  CALCULATE  KINEMATIC  VISCOSITY 

C 

VMU  -  (VMU  /  100)  /  RHO 

RETURN 

END 


'  .*Y 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc< 

C  SUBROUTINE  WBS 

C  WATER  BODY  DESCRIPTION 

C  < GEOMETRY  Jr  CURRENT) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI 

C 

C  THIS  SUBROUTINE  IS  CALLED  BY  PROGRAM  "DMODEL".  IT  ASKS  FOR 

C  .  THE  INPUT  NEEDED  TO  DESCRIBE  THE  WATER  BODY  AND  ITS  CURRENTS. 

C  IT  SETS  UP  THE  FOLLOWING  CODE  THAT  IS  USED  IN  OTHER  SUBROUTINE! 


**  I. 0  <-  SHAPE  <  2.  0 


SHAPE  «  1.0  IC  «  0 
SHAPE  -  1.  1  IC  -  1 
SHAPE  ■  1.2  IC  ■  2 
**  2  0  <  SHAPE  <  3.  0 
SHAPE  -21:  CIRC! 
SHAPE  -  2.  2  :  RECT, 
SHAPE  -  2.  3  :  ARBI' 
*•*  3  0  <  SHAPE 

SHAPE  -  3.  1  :  STRAI' 
SHAPE  -32:  ARBIT1 


<  2.  0  -RIVER  ** 

C  -  0  :  NO  CURRENT 
C  -  1  :  CONSTANT  CURRENT 
C  -  2  :  TIDAL  RIVER 
3.  0  -LAKE  ** 

CIRCULAR  LAKE 
RECTANGULAR  LAKE 
ARBITRARY  LAKE 
-COAST 
STRAIOHT  COAST 
ARBITRARY  COAST 


FOR  LAKES  AND  COASTS,  THE  CURRENT  CODE  IS: 
IC  -  0  :  NO  CURRENT 

IC  -  1  :  CONSTANT  CURRENT 

IC  -  2  :  CURRENT  -  F( SPACE) 

IC  -  3  :  CURRENT  -  F (TIME ) 

IC  -  4  :  CURRENT  -  F ( SPACE  AND  TIME) 


SUBROUTINE  WBS 

COMMON/CONTOUR /SHAPE, X(10), Y(10), XC. YC. IC, IW. ISP, XO, YO 
COMMON/SI ZE/R,  D,  WW, LI, L2, H,  RO 
COMMON/STYPE/SPILLM, SPILMR, TSPILL, WS, STP, SPM 
COMMON/CONSTAT/UC, VW. UTBAR , UO. Ul,  WT, ALPH,  THETA1 
COMMON /TRANS  I T/UX (10,  10), UY< 10.  10) , VWX ( 10) , 

VWY( 10), THETA< 10),  TI ( 10),  ID,  IT,  IV. 

XU( 10). YU( 10).  TT< 10) 

-  IN  THE  CURRENT  PROGRAM.  THE  UNIT  NUMBER  FOR  THE 

INPUT  AND  OUTPUT  DEVICES  ARE: 

1  -  WRITE  ON  DISK  FILE 

5, 6  -  READ  OR  WRITE  FROM  CONSOLE 


0007 

WRITE! 1. 3) 

0008 

WRITE (6, 3) 

OOOR 

3 

FORMAT  <  1H0//5X,  30H*—*< 

1  3X, 1H*, 3X, 22HWATER 

BODY 

DESCRIPTION,  3X ,  1H*/ 

2  3X, 30H«******«*-** 

»**■• ) 

0010 

10 

WRITE  (6, 1 1 ) 

001 1 

1 1 

FORMAT  (/IX, 33H I S 

SPILL 

IN  RIVER 

OR  CHANNEL 

0012 

READ  (3,  12,  ERR- 1  0  ) 

ICH 

0013 

12 

FORMAT  (Al) 

00  1  A 

IF  < ICH  EQ  'N' )  CO 

TO  100 

SPILL  IS  IN  RIVER  OR  CHANNEL 
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-V*  v  v  ->  mi  *>  *j» *;•  *.»  ■>  ■>  *  » *_>  •* ' 


>N 

& 

m 

,v: 


a 


S< 


- 


..'i 


I 

m 


0043 

0044 

0045 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


0015 

20 

<v 

a 

0016 

0017 

22 

0019 

24 

0019 

25 

cV 

w 

0020 

0021 

0022 

26 

m 

0023 

27  . 

•  ■  6 

0024 

127 

. 

0025 

1 

0026 

0027 

28 

0028 

29 

0029 

. 

& 

0030 

44 


•  ) ) 


1 

2 


FOR  A  RIVER  OR  CHANNEL: 

WW  -  WIDTH.  M 
D  -  DEPTH.  M 
RO  -  BOTTOM  ROUGHNESS.  M 
UC  -  CURRENT,  M/SEC 
♦IF  THE  CURRENT  IS  TIDAL, 

UC  -  UO  +  UI  ♦  SIN (2.  ♦  PI  ♦  <T  +  ALPHA) /WT ) 

WHERE  T  -  TIME,  SEC 

WT  -  PERIOD.  SEC 

CONTINUE 
WRITE  <1,22) 

FORMAT  (//5X.29H1.  THE  SPILL  IS  IN  A  CHANNEL.  > 

WRITE  <6, 25) 

FORMAT < / 1 X , 5 1 HG I VE  THE  WIDTH  AND  DEPTH  OF  THE  CHANNEL  <IN  METI 

) 

READ  <5.  ♦.ERR-24)  WW.  D 
WRITE  <1, 26)  WW, D 

FORMAT  <//SX,30H2.  THE  QEOMETRY  OF  THE  CHANNEL/, BX, 

12HW  -  WIDTH  -  ,  E12.  5. 6HMETERS/.  BX, 

12HD  -  DEPTH  -  , E12.  5. 6HMETERS ) 

WRITE  <6. 127) 

FORMAT  < / 1 X, 50H INPUT  THE  BOTTOM  ROUOHNESS < METERS )  OF  THE  CHAN* 

,  /, 

IX, 51H1NPUT  ZERO.  0  IF  YOU  WANT  TO  USE  THE  DEFAULT  VALUE. ) 
READ  <5.  ♦.  ERR-27)  RO 
IF  (RO.  EQ.  0  )  RO-O.  0584^0 
WRITE  <6.29) 

FORMAT  ( / 1 X, 36HIS  THERE  CURRENT  IN  THE  CHANNEL?  Y/N) 

READ  <5.  12. ERR-28)  ICH 
IF  <  ICH.  EO.  'YU  GO  TO  40 


-  NO  CURRENT 


0031 

IC  -  0 

0032 

SHAPE  -1.0 

0033  •' 

A 

UC-0 

0034 

L 

H— 0 

0035 

30 

WRITE  <1,32) 

0036 

32 

FORMAT  <//5X,30H3. 

THE  CHANNEL  HAS  NO  CU 

0037 

GO  TO  600 

0038 

40 

CONTINUE 

0039 

41 

WRITE  <6, 42) 

0040 

42 

FORMAT  ( / 1 X,  24HIS 

IT  TIDAL  CURRENT?  Y/N) 

0041 

READ  <5, 12, ERR-41 > 

ICH 

0042 

IF  <  ICH.  EQ.  'YU  CO 

TO  50 

-  NCN-TIDAL  CURRENT  - 

SHAPE  -1.1 
IC  -  1 

WRITE  <6,45) 


91 


C-80 


FORMAT  < / 1 X. 31HCURRENT  SPEED  MUST  BE  CONSTANT./ 

IX,  29H INPUT  CURRENT  SPEED  METER/SEC) 

READ  <5. *,ERR-44)  UC 
WRITE  (1.48)  UC 

FORMAT  (//5X.27H3.  IT  IS  NOT  A  TIDAL  RIVER. /BX, 

42HTHE  CURRENT  SPEED  IS  CONSTANT  AND  EQUAL  TO. FIO.  3. 
2X. 10HMETER/SEC.  > 

CO  TQ  600 

-  TIDAL  RIVER  - 


CONTINUE 
WRITE  <6, 54) 

FORMAT  (/1X.39HTHE  TIDAL  VELOCITY  CAN  BE  WRITTEN  AS  :  / 

8X.44HUC  -  UO  ♦  Ul  *  SIN  <2*3.  14 16/WT* ( TIME+ALPH ) > / 
IX, 50H INPUT  UO  (M/SEC),  U1  (M/SEC),  WT  (MIN),  ALPH  (M! 
READ  (5. *,ERR-52>  UO. Ul. WT. ALPH 
WRITE  (1.56)  UO, Ul, WT. ALPH 
FORMAT  (//5X.23H3.  IT  IS  A  TIDAL  RIVER./ 

8X, 23HTHE  CURRENT  VELOCITY  IS/ 

16X.44HUC  -  UO  ♦  Ul  *  SIN  (2*3.  1 4 16/WT  * ( TIME* ALPH ) ) / 
8X, 11HWHERE  UO  -  , F12.  2, 2X, 9HMETER/SEC/ 

14X, 5HU1  -  >  F12.  2, 2X. 9HMETER/SEC/ 

14X.5HWT  -  . F13.  2,  2X, 3HMIN/ 

14X,  5HALPH-, F 12.  2, 2X. 3HMIN) 


0057 

0058 

0059 

0060 

0061 

c 

r 

WT-WT  *  60. 

ALPH-ALPH  *  60. 

IC  -  2 

SHAPE  -1.2 

GO  TO  600 

c 

SPILL  IS  IN  OPEN  WATER 

j 

0062 

N* 

c 

100 

CONTINUE 

0063 

101 

IC-0 

0064 

102 

WRITE  <6.  104) 

0065 

0066 

104 

FORMAT  (/IX, 17HIS  IT  A  LAKE?  Y/N) 

READ  ( 5, 12, ERR-102)  ICH 

! 

0067 

IF  (ICH. EQ.  'N')  GO  TO  200 

-  SPILL  IN  LAKE  - 

FOR  A  LAKE: 

D  -  DEPTH,  M 

R  -  RADIUS  OF  CIRCULAR  LAKE,  M 

L1.L2  -  LENGTH  AND  WIDTH  OF  RECTANGULAR  LAKE,  M 
X ( I ) ,  Y ( I )  -  COORDINATES  OF  BOUNDARY  OF  IRREGULAR  LAKE,  M 

WRITE  <6, 1 12) 

FORMAT  (/IX, 26HIS  IT  A  CIRCULAR  LAKE?  Y/N) 

READ  <  5,  12,  ERR-100)  ICH 
IF  ( ICH. EQ  'N' )  GO  TO  140 


C-81 


•  *  •  »*  •  •  >  w'xs.’V'-V  %'.v:v  v*  ■%'  x.'  »  • .  • . 


C 

c 

-  CIRCULAR  LAKE  ■ 

- - 

0072 

\ « 

SHAPE  «  2.  1 

0073 

120 

WRITE  (6,122) 

0074 

122 

FORMAT  (IX, 46H0I VE 

THE 

1 

/IX, 14H(UNIT  : 

0073 

READ  (3, *, ERR-120) 

R,  D 

0076 

WRITE  (1. 124)  R,  D 

0077 

124 

FORMAT  ( / /5X, 33H1 . 

THE 

1 

//3X,  29H2. 

THE 

METER ) ) 


EX,  12HR  -  RADIUS  ».  E12.  3.  2X.  6HMETERS/ 
8X.  UHD  -  DEPTH  E12.  3.  2X,  6HMETERS) 


*•******■»•**■*-**•*■*-*-*****■**■•***♦♦♦♦***•***•***■*♦*•*•»*•»■*-****•*****•»•»*•* 
TRANSFER  TO  STATEMENTS  DESCRIBING  CURRENT 
******+***•*•*+•»*****■#*♦♦  *•*■**•**♦*♦♦■****■****#•*■*•*•»#■*■***•*••**•***•*■*•« 


CO  TO  300 
WRITE  <6.  142) 

FORMAT  <  /  IX.  29HIS  IT  A  RECTANGULAR  LAKE?  Y/N> 
READ  (3,  12,  ERR-140)  ICH 
IF  (ICH.  EG.  'N ' )  CO  TO  160 


-  RECTANGULAR  LAKE 


SHAPE  -  2.  2 
WRITE  ( 6,  132) 

FORMAT  (/1X.43HCIVE  THE  LENGTH  (LI),  WIDTH  (L2)  AND  DEPTH  OF, 
19H  THE  LAKE.  ( METERS) /2X. 

33HTHE  POINT  X-0.  Y-0  IS  THE  LDWER  LEFT  CORNER  OF  THE  LAKE.  ) 
READ  <3.  *,  ERR- 130)  L1.L2-D 
WRITE  (1,  134) 

FORMAT  ( //3X<  38H1 .  THE  SPILL  IS  IN  A  RECTANGULAR  LAKE.  / 

//3X,  30H2  THE  DIMENSION  OF  THE  LAKE  :  / 

3X,  13HL1  -  LENGTH  -  , E12.  3, 2X, 6HMETERS/ 

8X,  13HL2  -  WIDTH  -  , E12.  3. 2X ,  6HMETERS/ 

8X.  13HD  -  DEPTH  «  ,  E12.  3.  2X,  6HMETERS) 


TRANSFER  TO  STATEMENTS  DESCRIBING  CURRENT 


00  TO  300 

-  LAKE  W/  ARBITRARY  SHAPE  - 

CONTINUE 
WRITE  <6.  162) 

F0RMAT(/1X,  43HTHE  SPILL  IS  IN  A  LAKE  WITH  ARBITRARY  SHAPE.  </ 
«  IX.  PeHDESCR IBE  THE  SHAPE  WITH  10  PAIRS  OF  X, Y  COORDINA 

*  (METERS).  (0.0)  SHOULD  BE  NEAR  THE  SPILL  SITE.  > 

SHAPE  -  2.  3 
WRITE  <1, 164) 

FORMAT  (//3X.46H1.  THE  SPILL  IS  IN  AN  IRRECULARLY  SHAPED  LAKE 


C-82 


1  5X.47H2.  THE  FOLLOWING  POINTS  SPECIFY  THE  BOUNDARY  OF, 

2  10H  THE  LAKE.  ) 

C 

C  ♦♦#■*■**♦♦♦♦*■»•»•**■*■****♦♦■*■»*•»***+♦-***•*■****-*-*#*#♦-**■**-*•»*■**♦***■****< 

C  TRANSFER  TO  STATEMENTS  DESCRIBING  IRREGULAR  SHAPE 

C  #■***■»*■**#**■**■*#■»-***•***■*■**#■*-*■••*#•*■**•****-**■**♦**■»****♦*•**********( 

c 

0096  CO  TO  300 

C 

C  -  SPILL  MUST  BE  IN  COASTAL  WATER  - 

C 

C  FOR  A  COAST: 

C  D  -  DEPTH,  M 

C  X(l),  YU),  X(2>,  Y<2)  -  TWO  COORDINATES  DESCRIBING  A  STRAIGHT 

C  COAST  LINE,  M 

C  X  (  I ) ,  Y  ( I  )  »  COORDINATES  DESCRIBING  AN  IRREGULAR  COAST  LINE,  I 

C 


0097 

200 

CONTINUE 

0098 

WRITE  (6.202) 

0099 

202 

FORMAT  (/IX, 31HSPILL  MUST  BE  IN  COASTAL  WATER. ) 

0100 

203 

WRITE  (6,204) 

0101 

204 

FORMAT  (/IX, 23HIS  COAST  STRAIGHT  ?  Y/N) 

0102 

READ  <5, 12, ERR-203)  ICH 

0103 

IF  (ICH. EQ.  'N')  CO  TO  220 

C  -  STRAIGHT  COAST  LINE  - 

C 

0104  SHAPE  *  3.  1 

0105  WRITE  (1,210) 

0106  210  FORMAT  <//5X,  42H1.  THE  SPILL  OCCURS  IN  COASTAL  WATER  WITH  , 

1  20HSTRAIGHT  COAST  LINE.  ) 

0107  211  WRITE  (6,212) 

0108  212  FORMAT  (/1X.36HCIVE  THE  DEPTH  OF  THE  COASTAL  WATER.  ) 

0109  READ  <5, *. ERR-211 >  D 

0110  214  WRITE  (6,215) 

0111  215  FORMAT (/IX, 62HGI VE  2  (X.Y)  COORDINATES  OF  THE  STRAIGHT  COAST  L 

*E  IN  METERS.  > 

0112  READ  <5, *, ERR-214)  X(l),  Y<1),  X<2>,  Y<2) 

0113  WRITE  (1,218)  D,  X ( 1  ) ,  Y(l),  X(2>,  Y(2) 

0114  218  FORMAT  <//5X,36H2.  THE  DEPTH  OF  THE  COASTAL  WATER  IS, 

1  E12.  5,  2X, 6HMETERS/8X, 31HTHE  COAST  LINE  IS  GIVEN  BY  THE 

2  19HF0U-0WINC  2  POINTS.  / 

3  20X ,  3HX,  17X,  1HY/10X,  1H1, 3X, E12.  5,  5X, E12.  5/ 

4  10X,  1H2,  3X,  E12.  5,  5X,  E12.  5) 

C 

C  *■*•*■*♦♦**•*•*■*•»■*•**-*■*■»*•»•*■********•******•»•*•**#•**••■**■*+■*■**■*•*•***•#■»****-» 

C  TRANSFER  TO  STATEMENTS  DESCRIBING  CURRENT 

C  *+****■*********■*■*•**■*-*■***********-*+•*•*-*-**#•*•*■*■*-*■*-*-*•*•*■*-*•*■*-#•*■*-*•*■*•*•* 

C 

0115  CO  TO  500 

C 

C  -  IRREGULAR  COAST  LINE  - 

C 

0116  220  CONTINUE 

0117  SHAPE  =  3.  2 


C-83 


one 

223 

0119 

222 

0120 

0121 

224 

C 

c 

c 

c 

c 

0122 

300 

0123 

0124 

0125 

301 

0126 

0127 

0128 

302 

0129 

0130 

0131 

0132 

306 

0133 

309 

0134 

310 

0133 

320 

0136 

321 

0137 

0138 

0139 

324 

C 

c 

c 

c 

c 

0140 

300 

0141 

301 

0142 

302 

0143 

0144 

0145 

0146 

304 

0147 

C 

0148 

310 

C 

c 

c 

0149 

31 1 

0130 

312 

0151 

0152 

WRITE  <1.222) 

FORMAT  (//3X.42H1.  THE  SPILL  OCCURS  IN  COASTAL  WATER  WITH  , 

1  2 OH IRREGULAR  COAST  LINE//.  5X, 

2  48H2.  THE  FOLLOWING  POINTS  SPECIFY  THE  BOUNDARY  OF  , 

3  1 1HCQAST  LINE.  ) 

WRITE  <6.224) 

FORMAT  < /I X.  48HTHE  SPILL  OCCURS  IN  COASTAL  WATER  WITH  IRREGULP 
1  1 1 H  COAST  LINE/ 

♦  IX.  107HDESCRI3E  THE  COAST  LINE  WITH  10  PAIRS  OF  <X.Y) 

♦ORDINATES  < METERS) .  (0,0)  SHOULD  BE  NEAR  THE  SPILL  ORIGIN.  ) 

**♦*#■**■►•■*#****■*■*•**■**■•♦*•**■►»•***■•***■**•*****■**#■****•*•*■*•***■»■**■*■*■*< 

STATEMENTS  300-324  INPUT  IRREOULAR  LAKE  AND  COAST  SHAPES 


CONTINUE 

DO  301  I-l, 10 

READ <5, *, ERR-223>X(I), Y(I) 

CONTINUE 
WRITE  < 1 , 302 ) 

WRITE  (6.302) 

FORMAT  </15X,  1HX,  13X.  1HY) 

DO  309  I-l,  10 

WRITE  < 1. 306)  I,  X< I >.  Y< I ) 

WRITE  <6,306)  I,X<I),Y(I> 

FORMAT  <  10X.  12,  2X,  E12.  3.  3X,  E12.  5) 

CONTINUE 
CONTINUE 
WRITE  (6.321) 

FORMAT  </lX, 17H INPUT  WATER  DEPTH) 

READ  <3.  *,  ERR-320)  D 
WRITE  (1,324)  D 

FORMAT  < 10X, 1SHTHE  WATER  DEPTH  IS. E12. 3. 2X. 6HMETERS) 


**♦**■*-*•*#***•**■*■*+■»****■•***■»**********•*•*•**■»#**+**•*■**+**■»**■**-*■*-« 

STATEMENTS  300-600  INPUT  CURRENTS 

*♦**#**♦*#■******■******♦■*■*•**•*-*■#•*•*■*•*■**■*■*•*•*•*•*•»•*•*-*•*■*■*•*■*■*  •*■#*■**■**•*+4 

CONTINUE 
WRITE  (6,  302) 

FORMAT  (/1X.21HIS  THERE  CURRENT?  Y/N) 

READ  (3, 12, ERR-501 )  ICH 
IF  (  ICH.  EQ.  'Y'  )  GO  TO  310 
WRITE  < 1, 304) 

FORMAT  (//3X.23H3.  THERE  IS  NO  CURRENT.  ) 

GO  TO  600 

CONTINUE 

-  THERE  IS  CURRENT  - 

WRITE  (6, 512) 

FORMAT  (/IX, 24HIS  CURRENT  CONSTANT?  Y/N) 

READ  (3,  12,  ERR=*5i  1  >  ICH 
IF  (  ICH.  EQ.  'N'  )  GO  TO  317 


-  CONSTANT  CURRENT  IN  OPEN  WATER  (STATEMENTS  513-516)  - 

FOR  A  CONSTANT  CURRENT,  UX(1,1>  •  X-COMPONENT; 

UY (1,1)  =  Y-COMPONENT,  M/SEC 

WRITE  <6,  514) 

IC-1 

FORMAT  (/IX,  40HINPUT  CONSTANT  CURRENT  SPEED  UCX  AND  UCY, 

/IX, 18H ( UNIT  :  METER/SEC)) 

READ  <5, *, ERR-513)  UX < 1 ,  1 ) , UY ( 1 ,  1 ) 

WRITE  (1,516)  UX(1,  1 >, UY(1,  1 ) 

FORMAT  <//5X,41H3.  THE  CURRENT  IS  CONSTANT  WITH  MAONITUDE, / 
SX,  5HUCX  -, F12.  2, 2X, 9HMETER/SEC,  / 

8X, 5HUCY  «, F12.  2,  2X,  9HMETER/SEC ) 

CO  TO  600 
WRITE  <6,  518) 

■FORMAT (/IX,  35HIS  CURRENT  A  FUNCTION  OF  TIME  ?  Y/N) 

READ  (5,  12,  ERR=51 7 >  ICH 
IF( ICH.  EQ.  'Y  '  )  CO  TO  520 

-  CURRENT  IS  A  FUNCTION  OF  LOCATION  ONLY  - 

(TRANSFERS  TO  532  FOR  INPUT  AFTER  PRINTING  OUT  LEGEND) 

IC-2 

WRITE( 1, 519) 

FORMAT ( //5X,  40H3.  THE  CURRENT  IS  NOT  A  FUNCTION  OF  TIME/ 

8X, 44HH0WEVER  IT  DOES  CHANGE  WITH  SURFACE  POSITION) 

CO  TO  532 
WRITEK6,  1001  ) 

FORMAT (/IX,  40H I S  CURRENT  A  FUNCTION  Or  TIME  ONLY  ?  Y/N) 
R£AD(5, 12, ERR=520)  ICH 
IF  (ICH. EQ.  'Y '  >  CO  TO  1020 

*♦*******•************■***♦*♦***•*■*■*-*■*•*•*•*-*-*•*•»■*•*•*■*■*-**•*•*-*•*•*■*-*■*-*■*■** 
CO  TO  1020  WHEN  CURRENT  -  F (TIME  AND  SPACE) 


IC-4 

WRITECl, 1005) 

FORMAT ( //5X«  41 H3.  THE  CURRENT  IS  A  FUNCTION  OF  BOTH  TIME, 
/8X, 13H  AND  LOCATION) 

CO  TO  532 
IC-3 

WRITE ( 1 ,  1025) 

FORMAT ( //5X.  39HTHE  CURRENT  IS  A  FUNCTION  OF  TIME  ONLY.  ) 
-  CURRENT  SPEED  VARIED  WITH  TIME  AND/OR  LOCATION  - , 


*■••**-****•***•*-*■*■»■»■»*»*****■***■**♦**•*■*•**■*******-*+***■***+*■*■•  *+♦•*+*1 
WHEN  CURRENT  -  F (TIME )  ONLY,  THE  CURRENTS  ARE: 

(JX  (1,1)  -  X-COMPONENT  AT  TIME  T(I),  M/SEC 
UY (1,1)  =  Y-COMPONENT  AT  TIME  TCI),  M/SEC 
T I ( I >  «  SPECIFIED  TIMES  (10),  SEC 


C -85 


0179 

0180 


0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 


0196 

0197 


0198 

0199 

0200 


521  WRITE(6. 522) 

522  FORMAT < //5X.  41HGIVE  TIME  AND  X.  Y  CURRENT  AT  10  INSTANTS.  A  5X, 

*  50HTHF  MAXIMUM  TIME  MUST  BE  AT  LEAST  AS  GREAT  AS  LAST/5X 

*  25HPR INT-OUT  TIME  REQUESTED.  .  26HT I ME  SHOULD  BE  IN  MINUTE! 
DO  525  1-1. 10 

READ <5.  *,  ERR-520)  TI ( I ) , UX < 1, I) .  UY ( 1 .  I) 

DO  524  J*2. 10 
UX(J, I )-UX(l, I) 

UY(J, I)«UY(1, I) 

524  CONTINUE 

525  CONTINUE 
WRITE<  1.  526) 

526  FORMAT <  A  10X.  9HTIM£(MIN>,  11X,  9HUX(h/SEC).  6X.  9HUY ( M/SEC > ) 

DO  530  1-1, 10 

WRITE< 1. 528)  TI < I >,  UX( 1, I).  UY(1, I) 

528  FORMAT <  10X,  E15.  1.  5X.F10.  5.  5X.F10.  5) 

TI < I >«TI ( I >*60. 

530  CONTINUE 

GOTO  600 
C 

C  ************************************************************* 

C  STATEMENTS  532-600  GIVE  INPUT  WHEN  CURRENT  -  F< SPACE).  IF 

C  CURRENT  IS  ALSO  A  FUNCTION  OF  TIME.  A  DO-LOOP  IS  SET  UP  TO 

C  GIVE  INPUT  AT  10  TIME  INSTANTS. 

C '  v************************************************************ 

C 

532  WRITE <6. 533) 

533  FORMAT < //5X,  50HIF  A  LAKE.  THE  X,  Y  CURRENT  MUST  BE  GIVEN  AT  CEI 
«R/5X,  50H0F  9  RECTANGULAR  BOXES  (3X3  GRID)  THAT  COVER  LAKE.  /5X. 
•49HIF  A  COAST,  THE  X, Y  CURRENT  MUST  BE  GIVEN  FOR  THE/5X,  71H9  Y~! 
*CES  THAT  EXTEND  OUT  FROM  THE  10  X,  Y  POINTS  DESCRIBING  THE  COAST 

IF  (SHAPE.  CE.  3.  0)  GOTO  547 

534  WRITE (6. 535) 

535  FORMAT < /5X.  46HCIVE  THE  4  X-COORDINATES  (METERS)  THAT  SPECIFY/ 

*  44HTHE  HORIZONTAL  ORID.  THE  FIRST  AND  LAST  MUST/5X . 

*  37HC0INC IDE  WITH  THE  LENGTH  OF  THE  LAKE.  ) 

C 

C  ************************************************************* 

C  STATEMENTS  FROM  HERE  TO  555  ARE  DO-LOOPS  TO  SPECIFY  THE  GRID 

C  FOR  THE  CURRENTS.  XU(I)  AND  YU( I )  ARE  THE  GRID  FOR  A  LAKE  BE 

C 


c 

YU  ( 4 ) 

0 

* 

0 

* 

0 

* 

0 

c 

• 

7 

* 

8 

» 

9 

* 

c 

0 

* 

0 

* 

0 

* 

0 

c 

* 

4 

* 

5 

* 

6 

* 

c 

0 

# 

0 

* 

0 

* 

0 

c 

• 

1 

* 

2 

* 

3 

* 

c 

YU  <  1  ) 

0 

* 

0 

* 

0 

« 

0 

c 

XU(  1  ) 

XU  <  4 ) 

c 

c 

c 

FOR  A 

COAST 

THE 

GRID  IS 

c 

c 

* 

* 

* 

♦ 

c 

* 

♦ 

* 

* 

C-86 


I 


c 

c 

c 


. 

C 

. 

C 

c 

v/ 

c 

n 

c 

U 

c 

c 

0201 

0202 

$ 

0203 

337 

0204 

i 

0203 

338 

0206 

0207 

0208 

540 

0209 

■L 

0210 

542 

3 

'.f 

0211 

0212 

343 

0213 

0214 

347 

i 

0215 

*->• 

348 

■ 

0216 

s 

V 

.  0217 

V 

0218 

0219 

350 

1 

0220 

332 

0221 

351 

0222 

355 

* 

* 


1 

2 


a 


'25 

7 1 


0223 

0224 

0225  560 

0226  361 

C 
C 

c 

c 

c 

c 

c 


*  1  *  2 

*  3  *  AND 

*  • 

*  * 

*  * 

*  0 

*  * 

0**XU ! 4 ) 

*  ■  0** 

YU !  4 ) 

0** 

xua ) 

YU!  1  ) 

*******-**"*-##+#****-M  ■#*■»****■*■*■*■**•*"*■*•**•*■#■*■*■•-*•*•*•*■*■*■**■#■#•*■#■»■■*  ■***■*■*-*• 

DO  337  1-1,4 

READ(3, *, ERR-334)  XU(I) 

CONTINUE 
WRITE <6. 338) 

FORMAT < /5X, 38HN0W  GIVE  THE  4  Y -COORD I NATES  < METERS )  .  /5X, 

60H1HE  FIRST  AND  LAST  MUST  COINCIDE  WITH  THE  WIDTH  OF  THE  LAKE. 

DO  540  1-1, 4 

READ ( 5, *, ERR-534 )  YU!  I) 

CONTINUE 

WRITE ( 1, 342) !XU!I >, 1-1,4) 

FORMAT! //5X,  43HX-C00RDINATES  OF  HORIZONTAL  GRID  IN  METERS: //IX, 
4  <  E12.  5,  2X)  ) 

WRITE! 1, 543) !YU(I ), 1-1,4) 

FOPMAT  < /3X,  41HY-C00RDINATES  OF  VERTICAL  GRID  IN  METERS:  //IX, 

3 !  E12.  5,  2X  )  ) 

GOTO  551 
WRITE (6,  348) 

FORMAT < /3X,  47HCIVE  THE  10  X -COORDINATES  (METERS)  THAT  SPECIFY/ 
3X, 31HTHE  9  SLICES.  THE  FIRST  AND  LAST  MUST  COINCIDE  WITH/5X- 
24HTHE  LENGTH  OF  THE  COAST. ) 

DO  330  I— 1,  10 

READ (  5,  *, ERR-347 )  XU! I) 

CONTINUE 

WRITE! 1, 352) ( XU! I ) , I- 1 , 1 0 ) 

FORMAT  OX, 

47HX-C00RD INATES  THAT  FORM  THE  9  SLICES  IN  METERS: //IX, 

3 !  El 2.  5,  2X  )  /  1  X ,  5  (  E12.  5,  2X  )  ) 

WR I TE  <  6 , 555) 

FORMAT! /5X,  49HINPUT  UX  AND  UY  CURRENTS < M/SEC )  FOR  EACH  OF  THE  <i 
/3X,  49HB0XES  OR  SLICES.  BOXES  ARE  NUMBERED  LEFT-TO-R IGHT/ 
3X.31H1.2,  3  IN  BOTTOM  ROW,  4,5,6  IN  MIDDLE  ROW,  AND  7,8,9/ 
3X, S1HIN  TOP  ROW.  SLICES  FOR  A  COAST  ARE  NUMBERED  1  TO  9,  / 
5X, 31HLEFT-T0-RIGHT.  IF  THE  CURRENTS  ALSO  DEPEND  ON  TIME,/ 
3X, 47HY0U  WILL  BE  ASKED  FOR  10  SUCH  SETS  OF  CURRENTS.  ) 

1-1 

IF! IC. Ed.  2)  GOTO  563 
WRITE (6, 561 ) I 

FORMAT! /3X,  21HCURRENTS  FOR  NUMBER  ,  13,  IX, 5HTIME.  ) 


*++♦**•#****++*#*+**+*+*+**********-*-*-*-»•**+-»■*■**•#■*+•*-*•*♦♦•*■*•*■**-*■*•*■*■« 

THIS  IS  THE  DO-LOOP  WHEN  CURRENT  IS  ALSO  A  FUNCTION  OF  TIME. 

T I < I )  *  TIME  INSTANTS  <10>.  CURRENTS  ARE: 


UX! J, I) 
UY! J,  I  ) 


X-COMPONENT, 

Y-COMPONENT, 


M/SEC 

M/SEC 


C-87 


0227 

C 

C 

C 

c 

563 

0228 

0229 

564 

0230 

0231 

0232 

0233 

0234 

570 

0235 

571 

0236 

572 

0237 

0238 

575 

0239 

580 

0240 

0241 

582 

0242 

583 

0243 

585 

0244 

0245 

590 

0246 

591 

0247 

593 

0248 

0249 

0250 

594 

0251 

0252 

0253 

0254 

0255 

595 

0256 

596 

0257 

0258 

0259 

0260 

0261 

600 

0262 

602 

0263 

605 

0264 

0265 

0266 

0267 

610 

0268 

0269 

700 

0270 

0271 

C 

C 

C 

c 

J  -  BOX  OR  SLICE  NO. 

I  -  TIME  NO. 

'  «HH»«**M***#«*«#«»**#'*«*HM>4HM»**«*«*«'»*'»****'»***'»-»«#***#***«**«'l 

DO  564  J-l, 9 

READ <5, *, ERR-551 )  UX  ( J,  I ) ,  UY<  J.  I ) 

CONTINUE 

IF(  IC.  EQ.  2)  GOTO  5SO 
I-I  +  l 

IF(I.  EQ.  11)  COTO  570 
COTO  560 
WRITE ( 6j 571 ) 

FORMAT <  /  5X,  42HN0W  GIVE  THE  TEN  TIME  INSTANTS  IN  MINUTES.  ) 

DO  575  1-1. 10 
READ<5.  *,  ERR-570)  TI<I) 

CONTINUE 

1-1 

IF < IC.  EQ.  2)  GOTO  590 
WRITE ( 6. 585 )  TI < I ) 

WRITE ( 1 . 585 )  TI(I) 

FORMAT (//20X, 5HTIME-. E12.  5. IX. 7HMINUTES) 

TI ( I ) — TI ( I ) *60. 

WRITE (6. 593) 

;.RITE<  1,  593) 

FORMAT </20X.  52HUX( M/SEC)  AND  UY(M/SEC>  IN  THE  NINE  BOXES  OR  SL! 
*ES.  ) 

WRITE <6. 594) 

WRITE(1. 594) 

FORMAT <  10X,  1H1 .  7X.  1H2.  7X,  1H3.  7X.  1H4,  7X,  1H5,  7X,  1H6,  7X,  1H7,  7X,  1HI 
*  7X,  1H9) 

WRITE (6.  595) <UXCJ.  I). J-l, 9> 

WR I TE  < 1 ,  595) <  UX  <  J,  I). J-l, 9) 

WRITE <6.  596) (UY< J,  I ). J-l, 9) 

WRITE ( 1, 596) <UY( J. I ), J-l, 9) 

FORMAT < IX,  2HUX. 2X,  9(3X,  F5.  2) ) 

FORMAT (IX,  2HUY .  2X,  9(3X,  F5.  2)  ) 

IF ( IC.  EQ.  2 ) COTO  600 
I-I  +  l 

IF (I.  EQ.  11 )COTO  600 
COTO  582 
CONTINUE 
WRITE  (6.605) 

FORMAT  (/IX,  31  HIS  THERE  WIND  IN  THE  AREA  ?  Y/N) 

READ  <5, 12, ERR-602)  ICH 
IF  (ICH.  EQ.  'Y')  CO  TO  700 
WRITE  (1,610) 

FORMAT ( //5X,  32H4.  THERE  IS  NO  WIND  IN  THE  AREA.  ) 

CO  TO  800 
CONTINUE 

-  CALL  SUBROUTINE  TO  CALCULATE  TRANSPORT 

VELOCTIY  DUE  TO  WIND 

CALL  WIND 
CO  TO  999 


C-88 


OOOl 

0002 

0003 

0004 


0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 


0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  SUBROUTINE  WIND 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  SUBROUTINE  INPUTS  THE  WIND  VELOCITY  AND  WAVE  HEIGHT.  IT 

C  IS  CALLED  BY  SUBROUTINE  “WBS".  IT  SETS  UP  THE  FOLLOWING  CODE: 

C 

C  IW  -  0  :  NO  WIND 

C  IW  -  1  :  CONSTANT  WIND 

C  IW  -  2  :  WIND  -  F(TIME) 

C 

SUBROUTINE  WIND 

COMMON/CONTOUR /SHAPE, X<10>, Y< 10), XC, YC. IC, IW, ISP, XO, YO 
COMMON/ENVOR/PV, VISA, DENA, TDC 
COMMON/TRANSTT/UX  < 10,  10),  UY(10,  10),  VWX ( 10), 

1  VWY(10),THETA(10).TI(10), ID, IT, IV, 

2  XU(10), YU(10), TT(IO) 

COMMON/CONSTAT/UC.  VW.  UTBAR,  UO,  Ul,  WT,  ALPH,  THETA1 
COMMON /SI 2E/R, D, WW, LI,  L2, H, RO 

C 

P I »ACOS ( -1 .  ) 

I  -  SHAPE 

1  WRITE  <6, 10) 

10  FORMAT  (/IX, 27HIS  WIND  SPEED  CONSTANT?  Y/N) 

READ  <5, 12, ERR-1)  ICH 
12  FORMAT <A1) 

IF  ( ICH. EQ.  'N' >  GO  TO  40 
IW  -  1 

14  WRITE  <6, 15) 

C 

C  #**♦*•*♦*#•*•**•**•*•*■*•#•***•#•**■*#*•#****•**■#**■*■#•#*###******■#*##•*■#*•*•#■***< 

C  CONSTANT  WIND  - 

C  VW  -  WIND  SPEED,  M/SEC 

C  THETA!  »  WIND  ANCLE  WITH  RESPECT  TO  X-AXIS  OR  \ 

C  CHANNEL  AXIS,  RADIANS 

C  VWX<1)  -  X-COMPONENT  OF  VW 

C  VWY(l)  -  Y-COMPONENT  OF  VW 

C  ♦<»■****•**■*■*■»-»****■»■**■***••■****■**■»-*♦-•■*•*♦*■**•**-»*****♦♦*■***♦*■*-*■»-***< 

c 

15  FORMAT  < / 1 X, 42HINPUT  WIND  SPEED  (METER/SEC)  AND  DIRECTION, 

1  /IX,  15HANCLE  (DECREES)) 

READ  ( 5, *, ERR=* 1 4  )  VW, THETA  1 

20  WRITE  (1,21)  VW, THET A 1 

21  FORMAT  < / / 5X>  35H4.  THE  WIND  IS  STEADY  WITH  SPEED  OF,  F12.  2,  2X, 

1  9HMETER/SEC, /SX, 13H  AND  ANCLE  OF, F12.  2, 2X, 7HDEGREES) 

THETA 1 «THET  A1*PI/1S0. 

IF  ( I  . EQ.  1 )  CO  TO  150 
VWX(l)  -  VW  *  CCS ( THETA 1 ) 

VWY(l)  -  VW  *  S I N ( THET  A 1 ) 

TWIND  -  VW 
CO  TO  150 


0026 

0027 

0028 

0029 


0030 


0031 

0032 


0033 

0034 

0033 

0036 

0037 

0033 

0039 

0040 

0041 


0042 

0043 


0044 


C 

C 

C 

40 


C 

c 

c 

c 

c 

c 

30 
C 
C 
C 

31 

32 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


34 

c 

c 

c 

60 

62 


-  WIND  SPEED  VARIES  WITH  TIME  - 


CONTINUE 
IW  -  2 
I  -  SHAPE 

00  TO  <30. 60.  60)  I 

#****■*♦****#***■#*■*♦*****♦■#*-*■•*■*■*•*'*■#*•*•*•*♦■**■*•*■*•*•**♦•*■*-*•*♦•*'**■*■*•#•*■*-*' 
I  -  1  :  RIVER 

I  -  2  OR  3  :  LAKE  OR  COAST 

***•*#*•#**•****■****#■*•##♦**■*•******* *■**•*•**•**■#■*■#■#' 4HHHHHHHHHHHT  #+**■**#, 

'  CONTINUE 


-  IN  RIVER  OR  CHANNEL  - 


WRITE  <6. 32) 

FORMAT ( IX, 40HWIND  SPEED  OVER  CHANNEL  DEPENDS  ON  TIME.  /IX, 

•  6SH INPUT  TIME  <MIN>,  WIND  SPEED  (M/SEC).  AND  DIRECTION  ANCLE  <D< 
•CREES). /IX, 32HUSE  10  TIHL  INSTANTS,  AND  LAST  TIME  MUST  BE  AT  LEAS” 
•/IX, 33HAS  OREAT  AS  MAXIMUM  PRINT-OUT  TIME. ) 


FOR  WIND  -  F(TIME)  : 

VWX<I)  -  X-COMPONENT  AT  TIME  7(1).  M/SEC 
VWY < I )  -  Y-COMPONENT  AT  TIME  TCI),  M/SEC 
TT < I )  -  TIME  INSTANT  (10),  SEC 

THETA < I )  -  WIND  ANOLE  WITH  RESPECT  TO  X-AXIS  OR 
CHANNEL  AXIS.  RADIANS 

NOTE:  IN  THE  INPUT,  VWX < I )  IS  USED  TEMPORARILY  TO  INPUT 

THE  WIND  SPEED.  THEN  X  AND  Y  COMPONENTS  ARE  CALCULATED 
INTERNALLY. 

DO  34  1-1,  10  ! 

READC3. *, ERR-31 )  TT < I ) , VWX ( I ) , THETA < I ) 

THET  A  < I ) -THET A<I)*PI/1 SO.  p 

VW— VWX  < 1 ) 

THETA 1 -THETA < 1 ) 

VWY < I )-VWX< I ) *S IN ( THETA < I ) > 

VWX  < I )-VWX  < I )*COS  <  THETA < I ) )  | 

CONTINUE  I 

COTO  100  J- 

-  IN  OPEN  WATER  - 


WRITE<6,  62)  -j 

FORMAT < 1 X ,  4 5HW I ND  SPEED  OVER  LAKE  OR  COAST  DEPENDS  ON  TIME/1X,  j 

•  33HBUT  IS  CONSTANT  OVER  ENTIRE  *REA.  USE  10  TIME  INSTANTS, /  j 

*  IX. SOHAND  LAST  TIME  MUST  BE  AT  LEAST  AS  OREAT  AS  MAXIMUM/1X, | 

•  33HPR INT-OUT  TIME.  INPUT  TIME  (MIN),  WIND  Sf-EED  (M/SEC), /IX, 

*  30HAND  DIRECTION  ANCLE  (DECREES).  > 

DO  64  1-1. 10 


C-90 


i 


0045 

READ  <  3. #, ERR-60 )  TT  < I ) ,  VWX  < I ) .  THETA ( 1 ) 

0046 

THETA ( I >«THETA( I )*P 1/180. 

0047 

VW-VWX( 1 ) 

0046 

THETA 1 -THETA <1 ) 

0049 

VWY  < I )— VWX ( I ) *SIN( THETA ( I ) ) 

0030 

VWX(I)-VWX(I)*COS<THETA(I)) 

0031 

64 

c 

CONTINUE 

0032 

W 

100 

WRITE  <1,  102) 

0033 

102 

FORMAT  <//3X, 33H4.  WIND  SFEED  IS  A  FUNCTION 

OF 

TIME// 

1 

.  8Xi  4HTIME,  10X,  10HWIND  SPEED.  10X.  VHDIRECTION) 

0034 

DO  110  I  -  1, 10 

0033 

THETA < I ) -THETA < I ) * 1 80.  /PI 

0036 

TWI ND-SGRT  <  VWX ( I )  **2.  ♦  VWY(I>**2.  ) 

0037 

WRITE (1.  103)TT(I)> TWIND,  THETA ( I ) 

0038 

103 

FORMAT  <3X,  F10.  2,  7X,  F10.  3.  9X.  F10.  3) 

0039 

THETA ( I ) -THETA  < I ) *P I / 1 80. 

0060 

TT  < I ) -TT ( I ) *60, 

0061 

110 

f* 

CONTINUE 

0062 

C 

150 

r 

CONTINUE 

0063 

w 

00T0(299,  199,  199),  I 

0064 

199 

WR  ITE  <  6, 200) 

0063 

200 

FORMAT  (/IX,  30HINPUT  MEAN  WAVE  HEIGHT.  ( ME'HER  )  / 

« 

IX. 43HDEFAULT  VALUE  (EQ.  (III.  32)  OF  REPORT) 

IS 

USED/ IX 

* 

16HBY  INPUTTING  -1.  ) 

0066 

READ  (3.  *.  ERR-199)  H 

0067 

IF ( H.  LT.  0.  )  H-0.  01 384*TWIND 

0068 

WRITE(  1,  210)  H 

0069 

210 

F0RMAT(/8X,  19HMEAN  WAVE  HEIOHT  IS, F6.  2, 2X, 6HMETERS ) 

0070 

299 

RETURN 

0071 

END 

C -91 


